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Neu: 
Hardware- 
Erweiterung 
für die CPC’s 





Auf Seite 63 unserer heutigen Ausgabe. 
finden Sie eine nützliche Hardware-Erwei- 


on n . | terung für alle CPC’s. Es handelt sich hier- 
Die Software-Medienlandschaft wird vollkommen umgestaltet. Das legendäre Spei- | peiumein Ein/Ausgabe-Interface und ein 


chermedium Kassette hat ausgedient! Die Einführung der hier abgebildeten Halbleiter- EPROM-Programmiergerät. Die Einsatz- 
Speichereinheit macht die aufwendigen ROM-Kassetten überflüssig. (s. S. 23) möglichkeiten und dietechnischen Eigen- 


schaften dieser beiden neuen Geräte wird 
im Innern der Zeitschrift genauer be- 
schrieben. 
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Interpreter Music-Language 





zen Sie diese sinnvolle Befehlserweiterung für 


Der Hauptbereich dieser Befehlserweite- 

rung umfaßt das IRQ-gesteuerte Spielen 

von Musik. Dieses Problem läßt sich am 

besten mit einer Befehlserweiterung lö- 

sen, die im folgenden ausführlich erklärt 

wird. 

u VOL Is 

Dieser Befehl bestimmt die Lautstärke Is 

(0-15). Die Filtereinstellung bleibt von 

diesem Befehl'unberührt. 

— ENVELOPE st, at, de, su, re 

ENVELOPE legt die Hüllkurve der Stimme 

st fest. Die Parameter bedeuten: 

at = Attack 

de = Decay 

su = Sustain 

re = Release 

— TUNE st, Param, wf 

Der Befehl Tune läßt einen einzelnen Ton 

spielen. Die Tonhöhe wird durch Param 

angegeben und ist entweder im Commo- 

dore-Handbuch auf Seite 158 f nachzu- 

schlagen oder läßt sich durch den SDATA- 

Befeht (s. u.) ermitteln. 

Die Vaiable wf bestimmt die Wellenform: 

wi=0 - Dreieck 

wi=1- Sägezahn 

wi=2- Rechteck {Vor Gebrauch der 
Rechteckschwingung muß mit dem 
PULSE-Befehl die Pulsbreite festgelegt 
werden). 

wf=3- Rauschen _ 

TUNE OFF st löscht das 0. Bit der Stimme 

st. Dadurch wird der SU/RE-Abschnitt ge- 

startet und der Ton spielt aus. 

-— PULSE gb 

Mit dem PULSE-Beiehi läßt sich die Puls- 

breite bestimmen. Diese muß vor Ge- 

brauch der Rechteckschwingung einge- 

geben werden. 

— REGSAVE sitr$ 


Oft steht man vor dem Problem, den gan- 


zen SID (Sound Interface Device) neu zu 
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registrieren. Da das Auslesen einzelner 
Werte aus dem SID (bis auf drei Ausnah- 
men) nicht möglich ist, liegt jetzt eine 
komplette Kopie des SID ab der Adresse 
828 vor. Mit REGSAVE kann nun der ganze 
Registersatz des SID in dem String str$ 
untergebracht werden. 

— REGLOAD str$ 

Will man den SID nun neu registrieren, so 
kann man mit REGLOAD den SID mit den 
Werten laden, die im String str$ stehen 
und die man vorher mit REGSAVE abge- 
speichert haben muß. 

— FILTER 

Da dieser Befehl sehr viele Funktionen hat, 
wird er im folgenden in seinen gesamten 
Einzelfunktionen erklärt: 





ET 








— FILTER 5 
Bei dieser Variante des Filter-Befehls wird 
nur die Stimme s (1-3) über den Filter ge- 
leitet. Wenn für s der Buchstabe „E* ange- 
geben wird, so wird die externe Signal- 
quelle gefiltert, 
— FILFER s, ff 
Hier wird noch zusätzlich die Filterfre- 
quenz {ff} angegeben (0-65535). 
— FILTER s, ff, res 
Wird die Vartable res für Resonanz auch 
mit angegeben, so wird diese dann ge- 
setzt. res nimmt den Bereich von 0-15 ein. 
— FiLTER s, ff, res, Pa 
Schließlich kann man durch den Buchsta- | 
ben Pa (Passart) noch den Pass einstellen: 
Pa = „I“ - Tiefpass ist selektiert 
Pa = „B* - Bandpass ist selektiert 
Pa = „H“ - Hochpass ist selektiert 
Natürlich können die Passarten auch un- | 
tereinander gemischt werden, 1 
—. FILTER OFF Param 
Durch diese letzie Filter- 

Funktion kann man die 

einzelnen Stim- - 


„Ein tolles Hilfsprogramm, das IML! Du, ich kann jetzt meine Spiel- 


Programme mit der tollsten Musik unterlegen!“ 
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men sowie die Passarten wieder aus- 

schalten. 

Durch Zahlenangaben werden die dem- 

entsprechenden Stimmen ab sofort nicht 

; mehr über den Filter geleitet. Gibtman „E" 

| an, so wird die externe Signalquelle nicht 

| mehr gefiltert. 

Als letzte Möglichkeit kann man nun noch 

| die einzelnen Passarten wieder ausschal- 
ten, indem man die entsprechenden 

Buchstaben angibt. 

WICHTIG: Die Buchstaben dürfen NICHT 

in Anführungszeichen stehen. 

| —— PLAY st, m 

i Durch diesen Befehl wird der Modus zum 

| IRQ-gesteuerten Spielen von Musik fest- 

gelegt. Bei m=1 wird nach Ende der Se- 

quenz diese automatisch wiederhoft, 

| während bei m=0 die Sequenz beendet 

wird. 


| — PLAY ON speed 

| Mit PLAY ON wird das Spielen der Se- 

| quenz gestartet und gleichzeitig deren 
Schnelligkeit durch speed festgelegi. 


—— PLAY OFF st 

Der letzte Befehl in der PLAY-Reihe ist der 
PLAY OFF Befehl. Durch ihn können ein- 
zelne Stimmen währen des Spielens ab- 
| geschaltet werden. 


| — SOUND RESET 


| Nach SOUND RESET erfolgt ein komplet- 
ji ter Reset des SID. 


-— SDATA okt, „ns“, var 

Durch SDATA wird der Variablen var der 
Wert zugeordnet, der sich durch die Okta- 
ve und den Notenstring errechnet. Für 
„ns“ gelten folgende Buchstaben: 

6", „D“, Er Ms „a“, „A, „H“ 

Eine Notenerhöhung um eine halbe Note 
; findet statt, indem man den Grundton zu- 


| sammen mit der GTRL-Taste drückt. 


| — WAVE s, „string“ 

Mit WAVE können Sie die einzelnen Wel- 
| lenformen sowie die Synchronisation und 
| Ringmodulation steuern, s ist die Stimme, 
| auf die sich „string“ bezieht, Dieser muß 
| acht Zahlen haben, die entweder den Wert 
| 0 {für „aus“) oder 1 {für „ein“) haben dür- 


i Ten. 


Der Reihe nach sind die einzelnen Schalter 
für folgendes zuständig: 


1. - Rausch Schwingung 

2. - Rechteck Schwingung 

3. - Sägezahn Schwingung 

4. - Dreieck Schwingung 

5. - Test-Bit (Manchmal kommt es vor, 
daß der Rauschgenerator blockiert. Dann 
muß kurz das Test-Bit gesetzt werden.) 
6. - Ringmodulation 

7. - Synchronisation 

8. — Steuerbit des Hüllkurvengenerators 
{wird vom I.M.L automatisch gesetzt.) 
Beispiel: 

WAVE 1, „00001010“, würde die Dreieck- 
schwingung auswählen und die Ringmo- 


dulation einschalten. 


Das waren die gesamten Musikbefehle. 
Wit man jedoch einmal selbst einen Se- 
guenzer programmieren - die Möglichkei- 
ten sind jetztja gegeben -, 50 wird, wie bei 
jedem Programm, das „nur“ im Basic V2 
geschrieben wurde, dieses ziemlich lang- 
sam und bedienungsunfreundlich sein. 
Darum wurde vom Autor für die Program- 
mierer, denen Assembler nicht so gut 
liegt, ein Toolkit in den I.M.L. eingebaut, 
dessen Befehle im folgenden erklärt sind. 


— COLOR, pf 
Das Setzen der Punktfarbe (ps) geschieht 
durch diesen Befehl. 


—— COLOR rf, hf, (pf} 

Durch diese Version des COLOR-Befehls 
wird die Rahmen- und Hintergrundfarbe 
bestimmt. Die Punktfarbe kann, muß aber 
nicht mit angegeben werden. 


DISPLAY X, Y („string“) 
DISPLAY setzt, wenn kein String angege- 
ben ist, den Cursor an die Position X und Y. 
Ist ein String angegeben, so wird jener an 
diese Stelle geschrieben. 


— FINPUT str$ 

Dieser Befehl könnte wahrscheinlich den 
alten INPUT-Befehl, der bei einigen Versio- 
nen des C-64 ohnehin nicht richtig funk- 
tioniert, ganz ablösen. Während der Ein- 
gabe eines Strings beim FINPUT-Befehl 
blinkt der Cursor nicht. Auch werden die 
gesamten Steuertasten, bis auf GRSR- 
links und rechts sowie F1, F7 und Return, 
außer acht gelassen. Das garantiert eine 
absolut fehlerfreie Eingabe. 

Man kann die Eingabe mit RETURN, Fi 
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oder F7 verlassen. SHIFT+RETURN brin- 
gen Sie immer wieder an den Anfang der 
Eingabe zurück. 

Zahlen können mit dem FINPUT-Befehl 
nur auf Umwegen eingegeben werden, 
wie das foigende Beispiel zeigt: 

10 PRINT CHR$(147)+,BITTE EINE ZAHL 
ANGEBEN“ 

20 FINPUT W$ 

30 W=VAL(WS):PRINT „SIE GABEN";W; 
„EIN“ 

Als nächstes wird Ihnen die Möglichkeit 
gegeben, die Eingabe des Strings noch 
mehr zu formatieren. Das geschieht durch 
die nächste Vaiante des FINPUT-Befehls: 


— FINPUT,w.c,s} 

An dieser Stelle gestand der Autor, daß 
ihm ein kleiner Fehler unterlief, der später 
nicht mehr behoben werden konnte. Die 
Variable wistein Scheinwert und muß als 
Zahl zwischen 0 und 255 angegeben wer- 
den. Das hat aber keine Auswirkung auf 
den weiteren Ablauf. 

Als nächstes folgt die Farbe des Cursors. 
So können Sie, wenn Sie Cursor und Zei- 
chenfarbe differenzieren, den Cursor be- | 
sonders vom Text abheben. 

Zuletzt wird noch die Stringlänge angege- 
ben. Sie kann zwischen O und 79 variie- 
ren. Bei Überschreitung dieses Wertes 
wird jedoch KEINE Fehlermeldung ausge- 
geben. 

—— RPOKE ad, we. 

Dieser Befehl ist identisch mit dem nor- 
malen POKE-Befehl, jedoch schreibt die- 
ser die Daten garantiert ins RAM (also 
auch ins RAM unter dem Charaktergene- 
rator). 
— RPEEK ad, var | 
Durch RPEEK wird der Wert, der in it | 
RAM-Adresse ad liegt, in der Variable var 
gespeichert. 

— DOKE ad, word 

DOKE schreibt eine 16-Bit Zahl (Word) an 
die Adresse ad, ad+1. 

-— DEEK ad, var 

Das in der Adresse ad stehende Word wird 
in der Variable var übertragen. 

— RDEEK ad, var 

Dasselhe geschieht bei diesem Befehl, nur 
greift der Befehl den Wert aus dem Ram. 
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—CL5 
| CLS löscht den Bildschirm 

— HOME 
HOME setzt den Cursor an die Koordinate 
0,0. 
— CHARGEN 
Durch diesen Befehl wird der Zeichensatz 
des 6-64 in das darunterliegende Ram ko- 
piert. Sie haben jetzt die Möglichkeit, ein- 
zelne Zeichen mit RPOKE zu verändern. 


— NORM 
Der Befehl NORM stellt den Ausgangszu- 
stand des Zeichensatzes wieder her. 


— DERROR ({str$) 

DERROR gibt, sofern kein weiterer String 
angegeben ist, den Disk-Fehlerkanal aus. 
Ist ein String angegeben, so wird der In- 
halt des Fehlerkanals in ihm gespeichert. 


—— CATALOG oder DIRECTORY 

Der CATALOG-Befehl gibt den Inhalt einer 
Directory aus. Das Catalogisieren kann 
mit der C=Taste unterbrochen werden. 


— RESTART 

Nach dem. Drücken von | RUN/STOP+RE- 
STORE, wird der Timer abgeschaltet. Er 
kann mit RESTART wieder angeschaltet 
werden. Geschieht das nicht in einem Pro- 
gramm, so wird zur Bestätigung die Mel- 
dung 

"BORKTIMER IS WORKING NOW ok 
ausgegeben. 

Zusätzlich zu den neuen Befehlen wurden 
fünf neue CHR$-Funktionen eingeführt, 
CHR${1) - CHR$(3} ergeben jeweils die 
momentane Stepzahleiner IRO-gespieiten 
Stimme. CHR$(0) ergibt die gesamten 
Steps. Der Bildschirm kann durch 
CHR$(4) invertiert werden. 


| Wichtige Hinweise: 


Das Starten des I.M.L geschieht durch 
RUN. Ein Neu-Start kann jederzeit durch 
„SYS 36864“ erfolgen. 

Nach dem Befehl CHARGEN sind Bild- 
schirmspeicher sowie Spritepointer ver- 
schoben. 

Der Bildschirmspeicher liegt jetzt bei 
$CC00 (52224; sonst 1024) und die Spri- 
tepointer liegen bei 53240 (sonst 2040- 
2047). 
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Aufbau einer Sequenz: 

Die Lage von Sequenzen der einzelnen 
Stimmen sind in der folgenden Tabelle zu- 
sammengestellt: 


Stimme Lage (von-bis) 
1 -  $A00-$AFFF 
2 = $B00-$BFFF 
3 - $E00-$EFFF 


Eine Note baut sich aus einem Steuerbyte 
des Notenparameters und der Länge des 
Tons auf, 


Das Steuerbyte dient zur Erkennung des 
Endes einer Sequenz (255) sowie zur Bin- 
dung einer Note (128). Beispiel für Note 
C4 mit der Länge 128: 


1. Byte: 000; Sequenz nicht zu Ende 

2. Byte: 103; Low-Byte Frequenz 

3. Byte: 017; High Byte (zusammen 
4450) 

4. Byte: 128; Länge des Tons. 

Nach Run/Stop+Restore ist der Timer ab- 

geschaltet. Er muß zum nochmaligen 

Spielen einer Sequenz mit RESTART wie- 

der gestartet werden. 


Um mit der Peripherie arbeiten zu können, 


müssen Sie vorher den Timer ausschalten 


(RUN/Stop+Restore). 


Fehlermeldungen: 

— ILLEGAL VOICE NUMBER ERRÜR 

Diese Fehlermeldung tritt auf, wenn eine 
falsche Angabe der Stimme (1-3) erfolgt 
ist, 


— ENVELNUMBER TOO HIGH ERROR 

Bei der Angabe der Hüllkurve haben Sie 
den zulässigen Bereich von mx. 15 über- 
Schritten. 


— ILLEGAL STRINGLENGTH ERROR 

Diese Meldung zeigt Ihnen an, daß der 
String, den Sie entweder beim SDATA (sF 
1) oder beim REGLOAD (sl=25) angege- 
ben haben, eine falsche Länge besitzt. 
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Anmerkung: 


Das Programm kann mit „SYS 36864“ im- | 
mer wieder gestartet werden. Es kann | 
passieren, daß der Sequenzablauf, z.B. | 
nach einer wilden „rumPOKErei“, durch- | 
einander kommt. Tippen Sie dann folgen- 
des ein: 


RUN/STOP+RESTORE 
„SYS 36864° 


Das hitft dann in den meisten Fällen. Sollte } 


es danach immer noch keine Besserung | 
geben, so speichern Sie Ihr Programm, 
das Sie gerade bearbeiten, ab, und laden 
Sie die Befehlserweiterung noch einmal. | 
Wir können Ihnen aber versichern, daß | 
dieser Fall während der ganzen Program- 
mierzeit nur dreimal aufgetreten ist. 


Beidem PLAY ON-Befehl darf alskleinstes | 
Tempo der WERT 10 eingegeben werden. | 
Bei kleineren Werten kann sich das Pro- 
gramm sonst in einer Endlos-Schleife er- 
hängen. 


Vor jedem Programm, daß mit dem I.M.L 
geschrieben wurde, muß die Zeile: 

10 POKE 56,144:CLR 

stehen, um den I.M.L vor dem Überschrei- | 
ten zu schützen. 


Der Basicloader erzeugt aus den DATA- 


‚Zeilen ein Assemblerprogramm, das Sie 


selbst wie ein Basicprogramm behandeln | 
können. Man sollte auf-jeden Fall das Pro- : 
gramm vor dem ersten Start abspeichern. 


—— WRONG STRINGNAME ERROR 
Eine falsche Noteneingabe beim SDATA- | 
Befehl erzeugt diese Fehlermeldung. 


— RES NUMBER TOO HIGH ERROR 
Der maximale Wert für die Resonanz be- 


trägt 15. Nach Ausgabe dieser Fehlermel- | 


dung wurde der Wert überschritten. 


___ WOLUME TOD HIGH ERROR | 


Ähnlich wie die obige Fehlermeldung fand | 


hier eine Überschreitung eines Weris statt. 
Die zulässige Lautstärke von 15 wurde | 
überschritten. 
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100 REM ERTELETERETTEN EN EEE En 2 0 2 8 2 2 8 22 7 2 202 2 2 2 202 0 2 0020070020202 02 2 22 2 202 2 2.2.2 20200 







































110 REM ##%*%* “+ 
120 REM #%*# INTERFRETER MUSIC LANGUAGE V7.0 E73 
130 REM wur... ——— #H% 
140 REM ##%* ARE 
150 REM #x#+ COPYRIGHT (C} MARCH/APRIL 1985 *r% 
1&0 REM ### BY *r% 
170 REM #** KLAUS LOEFFELMANN ##% 
180 REM a8... +8 
190 REM #r* *r%* 
200 REM x%** “rr 
210 REM ### u. 4780 LIPPSTADT 15 --—- ar 
220 REM #x#* rt 
230 REM #%* er 
240) REM #84 {ALL RIGHTS RESERVED) - a8 


250 REM HERR HRS HIHI 
270 REM PRUEFSUMMEN 


290 DATA 11599, 15211,17779,16214,13075 
300 DATA 14880,13703,14342,12827,1237& 
310 DATA 12731,14747,14247,153272,146697 
320 DATA 14047,11980,15400,18010, 15882 
330 DATA 05039 ,15032,12935,11821,130853 
340 DATA 14924,15857,19282,15631,09486 
350 DATA 09587 ,13352 

360 ı 

370 REM ZEILENNUMMERN 

380 ı 

390 DATA 1017,1023,1050,1037,1045 

AaoO0 DATA 1050,1055,1053,1067, 1076 

410 DATA 1082,1099,10954,1102,11097 

426 DATA 1115,1122,1128,1135,1142 

430 DATA 1147,1154,1160,1167,1173 

440 DATA 1190,1184,11753,1200,1204 

450 DATA 1213,1219 

10 u Eu 

1000 REM M-CODbE DATAS 

10910 : 

1011 DATA14,8,193,7,158,32,40,50,47,565,48,41,0,20,8, 173, 7,58, 0291,8,195,7 
1012 DATA73,46,77,46,76,32,73,83,32,67,77,80,89,82,73,71,72,84,32,49,57,56 
1013 DATAS3,32,65,89,0,82,8,193,7,171,171,171,32, 759, 76,659,95,85,32,32,76,77 
1014 DATA69,70,70,69, 76,77 ,65,78,78,32,171,171,171,0,113,8,193,7,172,172,172 
1015 DATA172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172 
10158 DATAL72,172,172,172,172,172,0,0,0,69, 73,659, 259,84 ,32,0,653,70,697,593,259 
1017 DATAO,173,255,178,255,169,147,32,210,255,169,6,141,32,208,169,0,141,134 
1018 DATA2,1&9,15,141,33,208,32,6B8,166,169,197,160,8,133,20,132,21,169,0,150 
1019 DATA144,1373,97,132,98,162,16,160,0,177,20,145,77 ,200,209,247,230,21,230 
1020 DATAIFE,2072,208,242,24,988,32,0,144,108,2,1540,234,76,40,1458,1668,122,160 
1021 DATA4,132,15,189,0,2,16,7,201,259,240,62,232,208, 244,201 ,32,240,559,153 
1022 DATAB,201,34,240,85,36,15,112,45,201,63,208,4,169,153,209,37,201,48,144 
1023 DATA4,201,60,144,29,132,113,160,0,132,11,136,134,122,202,200,232,187 
1024 DATAO,2,56,249,1598,160,240,245,201,128,208,47,5,11,164,113,232,200, 153 
1025 DATAZ51,1,201,0,240,56,56,2533,58,240,4,201,73,208,2,1353, 15,06, 253,85 “ 
i02& DATA208,160,133,8,189,0,2,240,224,177,8,240,220,200,153,251,1,232,208 
1027 DATA240,166,122,230,11,200,185,157,160,16,250,185,158,160,208,181,240 
DATA1S5,189,0,2,15,189,153,253,1,198,123,169, 255,153, 122,76,160,0,185 
DATAS4,145,208,2,200,7232,189,0,2,56,2497,84,145,240,2453,201,128,208,4 
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DATAS,11,208,153,166,122,220,11,200,185,82,145,16,250,195,84,145,208 
DATAZ24 ,240,1979,16,15,36,15,48,11,201,255,240,7,201 ,204,176,6,76,36,1867 
DATA76,243,166,56,233,203,170,132,72,160,255,202,240,8,200,185,84,145 
DATA16,250,48,245,200,195,84,145,48,5,32,71,171,208,245,78,239, 166,32 
DATA115,0,32,5,145,76,174,167,201,204,144,4,201,252,144,6,32,121,0,76 
DATAZ37 ,167 ,56,233,204,10,170,189,241,145,72,189,240,145,72,76,115,0 
DATA169,0,133,33,32,115,0,201,254,144,4,201,255,144,6,32,121,0,76,141 
DATA174,56,233,254,10,72,32,115,0,32,241,174,170,189,187,150,133,85,189 
DATA168,150,133,86,32,84,0,76,141,172,86,79,204,82,69,71,76,79;,65,196 
DATAB2,59,71,03,65,88,197,67,78,86,67,76,77,80,197,84,85,78,197,79,70 
DATA198,80,76,65,217,68,72,93,90,76,65,217,67,79,76,79,210,67, 76,211 
DATA72,79,77,197,80,85,76,83,197,70,73,76,84,69,210,83,79,85,78,68,32 
DATAB2,69,87,69,212,69,79,75,197,82,80,69,69,203,83,68,65,B4,192,68,69 
DATAAF,203,70,73,78,80,95,212,82,80,79,75,197,67,72,65,82,71,69,206,78 
DATA79,82,205,82,68,69,69,203,698,67,82,82,79,210,67,65,84,65,76,79,199 
DATA58,73,92,69,567,84,79,82,217,82,69,83,84,65,82,212,87,65,86,197,0 
DATA107,146,238,155,199,155,86,147,191,147,41,147,160,149,27,150,685,150 
DATA108,150,111,150,1164,150,101,154,152,150,7,151,198,150,42,151,25,154 
DATA219,151,147,152,193,153,5,154,71,154,131,156,211,156,211,156,109 
DATA158,172,158,169,6,141,32,208,169,12,141,33,208,169,0,141,134,2,169 
DATA&,160,156,141,38,3,140,39,3,169,128,141,138,2,169,40,160,159,141 
DATA22,3,140,23,3,162,0,189,97,146,157,4,3,232,224,98,208,245,32,185,148 
DATA76,152,146,4,144,197,144,252,144,35,145,0,32,158,183,224,16,144,3 
DATA76,1,159,173,60,3,41,240,141,107,146,138,13,107,146,141,84,3,141 
DATA24,212,964,72,138,72,152,72,172,13,221,152,41,1,208,3,76,193,146,32 
DATA6,147,104,168,104,170,104,64,169,137,160,146,141,24,3,140,25,3,169 
DATA129,141,13,221,169,15,160,39,141,4,221,141,5,221,16892,17,141,14,221 
DATA76,120,169,0,141,14,221,169,55,133,1,169,0,133,247,169,127,141,13 
DATA221,172,13,221,48,42,32,1988,246,32,225,255,208,34,32,27,229,169,0 
DATA141,134,2,169,6,141,32,208,169,12,141,33,208,162,24,169,0,157,&0 
DATA3,157,0,212,202,16,247,108,2,160,76,114,254,165,248,240,3,76,197 
DATA148,76,19,147,0,7,14,160,2,185,16,147,170,189,61,3,72,189,60,3,157 
DATAO,212,104,157,1,212,136,16,235,96,152,72,32,253,174,32,158,183,224 
DATA16,144,5,76,179,147,139,10,10,10,10,141,190,147,32,2533,174,32,158 
DATA183,104,168,138,224,16,144,3,76,179,147,24,109,190,147,96,32,158 
DATA183,224,0,208,3,76,128,147,224,4,144,3,76,128,147,202,189,16,147 
DATA168,32,43,147,153,65,3,153,5,212,32,43,147,153,66,3,153,6,212,96 
DATA169,137,160,147,133,34,132,35,76,71,164,73,76,76,69,71,65,76,32,86 
DATA79,73,67,69,32,79,85,77,66,69,210,69,79,86,69,76,78,85,77,66,69,82 
DATA32,84,79,79,32,72,73,71,200,167,159,160,147,133,34,132,35,76,71,164 
DATAO,0,201,209,208,3,76,58,155,32,158,193,224,0,208,3,76,129,147,224 
DATA4,144,3,76,120,147,202,139,72,32,253,174,32,138,173,32,247,183,104 
DATA170,189,16,147,168,165,20,153,60,3,153,0,212,165,21,153,61,3,153 
DATA1,212,1532,72,32,253,174,32,1598,183,104,168,189,14,148,153,64,3,153 
DATA4,212,96,17,33,65,129,147,31,1B,62,62,32,73,78,84,69,82,80,872,69 
DATAB4,67,82,32,77,85,83,73,67,32,76,65,78,71,985,63,71,69,32,86,83,46 
DATAS2,55,46,48,32,60,60,62,62,32,67,77,80,89,82,73,71,72,894,32,40,67 
DATA41,32,77,65,82,67,72,47,65,90,82,73,76,32,49,37,56,53,32,66,39,58 
DATA32,60,60,62,62,32,32,45,45,45,45,32,32,32,75,76,65,895,83,32,32,76 
DATA79 ,67,70,70,69,76,77,65,78,78,32,32,32,45,45,45,45,32,32,50,60,14& 
DATAO,144,184,184,1B4,184,194,184,184,1584,184,184,184, 1984, 194,184,184 
DRTA184,1584,184,1894,184,1894,184,184,184,184,184,184,184,184,184,194,184 
DATA184,184,184,184,184,184,184,184,0,169,18,160,148,32,30,171,169,143 
DATA160,149,76,30,171,238,98,154,169,53,133,1,162,2,138,10,170,189,87 
DATA149,133,250,199,88,149,133,251,138,74,170,189,102,149,240,101,222 
DATAB4,149,208,96,254,99,154,142,105,149,189,16,147,170,160,0,177,250 
DATAZO1,255,208,3,76,106,149,201,125,240,11,189,64,3,41,254,157,4,212 
DATA157,64,3,133,247 ,200,177,250,157,60,3,157,0,212,200,177,250,157,61 
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DATAZ,157,1,212,200,199,64,3,9,1,157,64,3,157,4,212,177,250,174,105,149 
DATA157 ,84,149,138,10,170,199,87,149,24,105,4,157,87,149,144,3,254,88 
DATA149,138,74,170,202,16,131,169,55,133,1,76,13,147,0,0,0,0,160,0,176 | 
DATAO,224,0,1&0,0,176,0,224,0,0,0,0,0,0,0,173,105,149,170,189,939,149 Ä 
DATA240,3,76,121,149,76,150,149,138,10,170,197,93,149,157,87,149,133 | 
DATAZ50,189,74,149,157,88,149,133,251,138,74,170,189,16,147,170,76,16 | 
DATA149,169,0,174,105,149,157,102,149,76,74,149,201,145,240,53,201,209 | 
DATAZAO ,88,169,0,141,14,221,32,158,183,224 ,0,208,3,76,128,147,222,4,144 
DATA, 7&,128,147,202,138,72,32,253,174,32,158,183,138,169,104,170,152 
DATAIS7,99,149,169,1298,133,249,169,1,157,102,149,96,32,115,0,32,158,183 


 DATA142,5,221,169,0,141,4,221,169,17,141,14,221,160,2,169,1,153,84,149 


DATA152,10,170,189,73,149,157,87,149,136,16,239,96,32,115,0,32,158,183 
DATA224,0,208,3,76,128,147,224,4,144,3,76,128,147,202,169,0,157,102,149 
DATA96,32,158,183,138,72,32,253,174,32,159,193,104,169,24,32,240,255 
DATA32,53,150,208,233,76,164,170,32,121,0,201,44,208,5,32,115,0,169,0 
DATA96 ,32,53,150,240,29,32,158,183,134 ,254,32,253,174,32,158,185,164 
DATA254,173,18,208,208,251,140,32,208,142,33,208,32,53,150,208,221,32 
DATA158,193,142,134,2,76,169,147,76,210,255,169,19,76,210,255,32,158 
DATA193,32,194,150,202,189,16,147,72,32,253,174,32,37,151,104,170,165 
DATA20 ,157,62,3,157,2,212,165,21,157,63,3,157,3,212,96,169,0,162,24,157 
DATAO,212,157,60,3,202,16,247,76,0,0,0,0,0,0,24,32,1598,173,32,143,173 
DATA32,166,182,96,224,0,208,3,76,128,147,224,4,144,3,76,128,147,96,32 
DATA138,173,32,247,183,120,173,14,221,72,169,0,141,14,221,169,48,133 
DATA1,160,6,177,20,141,7,151,169,55,133,1,88,104,240,5,169,17,141,14 
DATA221,32,253,174,32,139,176,172,7,151,32,162,179,166,71,134,73,166 
DATA72,134,74,32,208,187,96,0,32,37,151,32,253,174,165,20,164,21,133 
DATA2,132,3,32,37,151,160,0,165,20,145,2,165,21,200,145,2,96,32,138,173 
DATA7&,247,193,32,158,183,142,7,151,32,253,174,32,173,150,201,1,240,31 
DATA169,70,160,151,133,34,132,35,76,71,164,73,76,76,69,71,65,76,32,83 
DATAB4,82,73,78,71,76,63,78,71,84,200,162,0,150,0,177,34,221,161,151 
DATA240,32,232,224,12,144,246,167,117,160,151,133,34,132,35,76, 71,164 
DATA97 ,82,79,78,71,32,83,84,92,73,78,71,78,65,77,197,138,10,170,189,173 
DATA151,133,20,189,174,151,133,21,174,7,151,240,7,6,20,38,21,202,208 
DATA249,76,197,151,67,3,68,4,69,70,6,71,7,65,1,72,22,1,39,1,57,15,7551 
DATA9S,1,116,1,138,1,161,1,186,1,212,1,240,1,14,2,32,253,174,32,139,176& 
DATA165,20,133,99,155,21,133,99,162,144,56,32,73,188,76,251,150,32,36 
DATA234,32,53,150,208,34,32,158,183,142,253,151,32,253,174,32,158,183 
DATA142,1,152,32,253,174,32,158,183,142,0,152,96,150,0,0,79,0,0,0,0,0 
DATA162,0,142,3,152,164,211,140,255,151,32,36,234,236,3,152,144,5,240 
DATAZ,142,3,152,164,211,177,209,141,254,151,177,243,141,2,152,173,254 
DATA151,73,128,145,209,173,1,152,145,243,142,4,152,32,228,255,240, 251 
DATA174,4,152,160,24,217,180,152,240,241,136,16,248,164,211,72,173,254 
DATA1S51,145,209,173,2,152,145,243,104,201 ,20,208,11,224,0,240, 176,202 
DATA32,210,255,76,16,152,201,141,208,10,162,0,172,255,151,132,211,76 
DATA1&,152,201,157,208,11,224,0,240,147,202,32,210,255,76,16, 152,201 
DATA13,240,41,201,133,240,37,201 ,160,240,33,201 ,136,240,29,236,0,152 
DATA240,53,236,0,152,240,48,256,0,152,240,210,232,142,176,152,32,210 
DATA255,174,176,152,76,16,152,0,76,209,152,148,19,147,17,145,144,5,28 . 
DATA159,156,30,31,158,19,146,129,149,150,151,152,153,154,155,3,160,0 
DATA7&,16,152,238,255,151,198,207,208,2,198,210,144,213,132,208,177,209 
DATAZO1 ,32,208,6,136,204,255,151,176,244,152,56,237,255,151,24,170,142 
DATA&4,153,177,209,133,215,41,63,6,215,36,215,16,2,9,128,144,4,166,212 
DATA208,4,112,2,9,64,137,67,153,202, 136,204 ,255,151,176,222,174,64,153 
DATA224 ,0,240,6,238,64,153,76,42,153,201,32,240,3,238,64,153,32,139,17& 
DATA155,71,133,72,165,72,133,74,169,64,160,153,132,100,132,101, 76,82 
DATA170,0,67,153,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,120,173,14,221,72,169 
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DATAO,141,14,221,32,235,183,169,48,153,1,160,0,138,145,20,169,55,133 
DATA1,104,240,5,169,17,141,14,221,88 ‚96,120,173, 14,221,72,169,0, ia, 14 
DATA221, 169,0,160,208, 132,2, 132, 3,160,0, 162,16, 189,51, 133,1, 177,2,72 
DATA1L69,48,133,1, 104, 145,2, 200 ‚208,239, 230, 3,202,209,234,169, 55, 133, 1 
DATALOA,240, 5,169, 17,141,14,221,88,169,204,141,136,2,169,52, 141, 24, 308 
DATA169,0,141,0,221, 189, 147,32, 210,255,76,169, 151, 141 ‚0,221, 169,4,141 
DATA136,2,169, 2i, 141 „24,208, 169, 147, 76,210, 255, 32,37 „iSi,32,283, 174, 173 


» DATA14,221, 141, 97, 154,1&0,0,177,20, 200, 133,797, 177, 20,135,98,169,55, 133 


DATA1,173,97, 154,141,14, 221,B8,162,144 56,32,73,188,32, 139,176, 76,251 
DATA150,32,37, 151,32,253,174,173 „14,221,141,97, 154,169,0,141,14,221,120 
DATA167,48,133,1,76,38, 154,0,0,0,0,0,201,44, 208,6,32,115,0,76, 167,154 
DATA201 ,69,240,9,201,209,240, 2.208, 14,7&,5, 155,32, 115, 0,169,8,141,0,155 
DATA76, 149, 154,32 ,159,183,32, 184,150,202,189,1,155,141,0, 155,173,83.3 
DATA13,0,155,141,83,3, 141,23,212,32,53,150,240,1,96,32, 37,151 ,165,20 
DATALAI „B1,3,141, 21,212, 185,21, 141,82,3,141,22,212 „32,53,150,240,1,96 
DATA32,153,193,224,16,144,26,169, 206,160, 154, 76,132,147,82,69,83.32,78 
DATABS,77,66,69,82,32, 84,79,79,32,72,73,71,200, 138,10, 10,10,10, 141,0 
DATA155,173,83,3,41, 15,13,0,155,141 ‚93,3, 141,23,212,32,53, 150, 208, 3,76 
DATAB4,155,96,0,1,2.4,8,32, 115,0,76, 139, 155, 201,69, 208,8,32,115 „0,162 
DATA3,76,29,155.32, 1598, 183,32,194,150, 202,199,1,155,141,0,155,149.255 
DATAS6,237,0,155,141,0,155 ,173,83,3,45,0,155,141,83 „3,141,23, 312,96,32 
DATA115,0,32,158,183, 32,184,150,202,189,16, 147,170,189,64,3,41,254,157 
DATAG4,3,157,4,212,96, 32,121, 0,201,84,208, 8,32,115,0, 169,16,76, 123,155 
DATA201 „66, 208,8, 32,115,0,169, 32, 76,123,155,201,72,240, 3,76,8,175,32 
DATA115,0,169,64,141,0,155, 173,84,3,12,0,155,141, 84,3,141,24,212,96,201 
DATAB4,208,8,32,115,0,169,16,75,175,155,201,66,208,8,32,115,0,169,32 
DATA76,175,155,201,72,240,3,76,11,155,32,115,0,169,64,141,0,155,169,255 
DATAS6,237,0, 155,141,0, 155,173, 84,3,45,0,155,141 „84,3,141,24,212,96,162 
DATA25,142,64,153,189,80,3. 157,67,153,202,16,247,76,42,153, 32, 139, 176 
DATA165,71,164,72, 133,73,132,74,169,64,160,153,133,100,132,101,76.82 
DATAI70,32,173,150,201,25, 240,3,76,59,151,189,177,34,153,0,212,153,60 
DATA3,136,16,245,96, 72,165, 154,201, 3,240,3,76, 213, >41, 104,201,5, 144,3 
DATA7&,22,231,133,215, 72,138, 72,152,72,165,215,166,212, 240,3,76,151,230 
DATA201 ,4,240 ’25,170,189. 99,154,168.32, 162,179,32,221,189,189, 0,160,1 
DATA32,30,171,104, 168,104,170,104,24, 88,96,173,24, 208,201 ‚21,240,11,.169 
DATAO,160,204,133,20,132, 21,76,96, 156,169,0,160,4,133,20, 132,21,169,0 
DATA160,216,133, 97,132,98, 162,4, 160, 0,177,20,73,128, 145,20,173,134,2 
DATA145,97,200, 208, 242 ,230,21 ,230,98 ‚202,208,235,76.62, 156,169,1,162 
DATAS,180,15, 32,188 255,169,0, 32,189,255,32,192,255,162,1, 32,198,255 
DATA152,0,142, 210,156,32,207, 255,174,210,156,157,67.153, 232, 36, 144,80 
DATA239,32,204 „255,169, 1,32, 195,255,32, 121,0,240,9,174, 210,156,142,64 
DATA153,76,42,153,162,0,189,67,153,32, 210,255,232,236,210,156, 208,244 
DATA96,0,0,169,1,141,23,158, 169 ,36,133, 251,169, 0,141,211,156,169,147 
DATAZ2,210,255,32,249,157, 173,14,221,141,210, 156,169,0,141,14,221,167 
DATA2S1,133, 187,169 ,0,133,198,169,1,133, 193,169,8,122,186,169, 96,133 
DATAL9S,32,213,243,165, 186,32,180,255,165,185, 32,150,255,169 „0,133,144 
DATA180,3,132,251,32,165,255,133,252,164,144,208,67,32,165, 255, 164,144 
DATA208,40,164,251 ,136,208,233,166,252,32,207 ,157,169 32,32 210,253, 32 
DATA165,255,166,144 ,208,38,170,240,6,32,210,255,76,61,157,169,13,32,210 
DATA255,173,141,2,201,2,240,17,238,211,156,173,211,156,201,15,144,3,32 
DATA112,157,160,2,208,178,32,65,245,76,165,157,162,0,169,69,160,158,32 
DATA30,171,189,180,157,201,0,240,7,32,210,255,232,76,121,157,173,141 
DATA2,201,2,240,220,165,197,201,1,209, 243,169, 147,32,210,255,238,23,158 
DATA32,249,157,169,0,141,211,156,96,173,210,156,240,5,169,17,141,14,221 
DATA1689,0,133,198,96,17,29,29,29,29,29,29,29,29,29,29,29,29,18,82,32 
DATA&9,,32,84,,32,85,32,82,32,78,146,0,72,138,72,169,224,160,157,32,30 
DATA171,104,170,104,32,205,189,96,32,45,45,32,32,0,68,73,82,69,67,84 
DATA79,82,89,32,80,65,71,69,32,58,32,45,0,169, 230,160, 157,32,30,171,172 


Compute mib 


Programme 





1204 DATA2Z,1598,32,162,179,32,221,189,169,0,160,1,32,30,171,169,24,160,158 

1205 DATA7T&, ’30, 171, O, 32, 45,13,45, 45, 45, 45, 45, 45, 45, 45,45,45,45,35, a5 „45,45 

1204 DATA45,45, 45 ,45,45,45, 45 "A5,45,45, 45,45,45 "A5,35,45,45, 45 "aS.as 45,45 

1207 DATA45,45,45,13,0,435,45,45,45,45 ‚45,45, 45, 45,45,45,45,45,45,45,45,45 

1208 DATA4S,45.45,45.45,45,45,45,45,45,35,45,45,45,45,45,45,45,45,45,45,45 

1209 DATA45,0,169,15,160,39,141,4,221,130,5,221,1569,129,141,13,221,159,17 

1210 DATA141,14,221,165,157,16,7,169,142,180,158,32,30,171,96,17,42,42,42 

1211 DATA32,94,73,77,697,82,32,73,83,32,97,79,82,75,73,78,71,32,78,79,87,32 

1212 DATA42,42,42,13,0,32,158,193,32,184,150,192,247,158,169,0,141,248,158 

1213 DATAZ2,253,174,32,173,150,201,8,240,3,76,59,151,150,0,177,34,201,48,240 
| 1214 DATA16,201,47,240,5, 7, 106, 151, iss, 229, 158, 13, 248, 158, 141, 248, 158, 200 
1215 DATA192, 8, 148, 229, 178, 247, 158, 202, 189, ih, 187, 170, 173, 348, 158, 157, 54, 3 

1216 DATA157,4,212,76, Ö, 0, 128, 24, 32,16,8,4,2, 1, 169, 8,160,159, 76, 110, ı51, 86 

1217 DATA79,76,85, 77, 59, 32, 84,79,79,32, 72, 73, 71, 200, 17, 144, 42, 42, 42,32, && 

1218 DATAB2,49,65,75,32,42,42,42,13,0,32, 27, 329, 169,23,160, 159, 32, 30, 171,76 

1219 DATA228, 146, 53, 22, 62, 18, 197, 215, Sg 

2490 : 

2500 REM PRUEFEN UND EINLESEN DER DATAS 

2510 : 

5000 PRINT CHR$ (147) 35: POKESS280 ,4: POKES3281, 1S: PRINTCHRS (3135 

5010 PRINT "@ I.M.L. BASIC LOADER m"; 

5020 PRINT "id COPYRIGHT 1985 BY KLAUS LOEFFELMANN m"; 

5030 PRINT "@ m"; 

040 PRINT CHR$(14435; 

S050 PRINT DEE 

5040 PRINT "RR" _ 

5070 PRINT "BITTE WARTEN, DATAS WERDEN GELESEN..." 

S080 PRINT"BEEANZAHL DATENBLOECKE : -32-" 

5090 FORI=1T040:PRINT"-"3:NEXT 

5100 z 

5110 E$="EREREEPITTITTEEN" 

5120 : 390 : 

5130 DIM ZN(32) „Pi (32) ,P2132) 5200 RESTORE: FORI=1TD84: READ A:NEXT 

5140 : 5410 : ° 

.5150 FOR Z=1 TO 32 S4z20 FOR Z=0.T0 4075 

5160 READ P1(2) 5450 :READ A 

5170 NEXT Z 5440 :POKEZ049+Z ,A 

S1B0 =. j 5450 NEXT Z 

5190 FOR Z=1 T0 32 S460 : 

5200 READ ZNIZ) 5470 PRINT "LMIT ’RUN’ STARTEN" 

5210 NEXT Z:ZN(O)=10009 5480 FRINT "MIT ‘SAVE’ ABSPEICHERN" 

3220 : 5490 FOKE45, 185: FOKE46 „24: CLR 

5230 REM AUF FEHLER PRUEFEN 500 END 

3240 Z1=1:G05UH5320 Ssal0 : 

5250 : 5520 FRINT E$+"DATA-BLOCK NR.:"3Z1 

5240 FOR Zi=1 T0 32 5530 RETURN 

53270 :FOR Z2=1 TO 128 3340 : 

5280 +:READ A:PzZtZ13=F2tzi)4m | 250 FRINT "ü--- FEHLER IN DATAS -—-" 

5290 =NEXT Z2:G0SUBS520 5560 PRINT "WDATA BLOCK NR."3;Z1 

5300 :IF Pi(Z1)<>P2(zI) THENSSSo) D270 PRINT "BZEILEN ="; ZN(Z1-15" BIS "3ZN(Z1) 

5310 NEXT Zi SEES 

5320 : | N 

= u u - 

BE ENT KEINE FEHLER IN n ATaS" Das Listing des Hauptprogramms ist an dieser Sielle zu Ende. Wollen Sie 

5350 FOR P=1 TD 2000: NEXT Ihr Programm in Aktion sehen, tippen Sie das DEMO-Programm ab. 

5340 PRINT "DDATAS WERDEN GEPOKED " Möchten Sie aber gleich selbst Ihre Musik programmieren, können $ie 

5370 3 - auf die DEMO-Version verzichten. 

5380 REM POKEN DER DATAS 
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10 REM KUHN HERRIN 


Z0O REM ##* DEMO I.M.L ar 
50 REM au BY u. Flugmodell & 
40 REM **# KLAUS LOEFFELMANN #*# 


SO REM a ee 
&0 ı 

100 CLS:POKESS,0: FOKES&,144: CLR 
110 DISPLAY Ö, 10, "MUSIK-DATAS WERDEN ===, 2 
120 DISPLAY 0,15,"BITTE WARTEN..." 

130 GOSUB 50000 

149. : 

150 REM EINSTELLUNG DES SIDS 

150 : 

170 COLOR 6,0,5 

180 FOR 5=1 TO 3 

1970 WAVE 5,"01000000": REM WELLENFORM = RECHTECK 
200 :FULSE 5,3005REM FULSBREITE = 300 

210 :ENVELOPE 5,5,5,5,3:REM HUELKURVE BESTIMMEN 
220 NEXT 5:VDL iS 

230 : 

REM BILDSCHRIM AUFBAUEN 
CLS 
270 DISPLAY 14,0, "WSEQUENZ SPIELEN" 
280 FORI=1T040: PRINT "“"s:NEXT 
290 DISPLAY 0,5,."STIMME i1- STEFS:" 
300 DISFLAY 0,54,"STIMME 2- STEFS:" 
DISPLAY 0,7,"STIMME 3- STEPS: " 


Computer 











| u  Basicprogramme für C 64, IH 
ka 20, Spectrum, ZX 81, 1199/ 
4A, Atari 400, Video Genie 
I, Video Genie II, Alphatro- | 
nie PG, PG 1251. 


Auch im Flugmodellsport läßt sich 

ein Computer sinnvoll einsetzen. 

| Er kann zeitraubende und umständliche 

u Rechnungen oder das Sortieren von Daten 
übernehmen. 

4 So enthält diese Broschüre aus der Reihe 
„modell-technik-berater“ (MTB) 26 Pro- 
gramm-Listings mit Beschreibungen und 
Beispielausdrucken für verschiedene Ho- 
me-Computer. 

Die Programme betreffen unter anderem 
folgende 7 Themen: Modellberechnung und -optimierung, Wettbe- 

j werbsauswertung, Koordinatenberechnung, Elektroflug und Segel- 
fiug, Vereinsverwaltung... Jeder Modellflieger und Computer-Freak 

| erhält hier Unterstützung Zur Verbindung seiner beiden Hobbys. Sei 
es zum Abtippen der Programme und deren Anwendung oder auch 
als Anregung für eigene Entwicklungen. 


104 Seiten, Format DIN A4, zahlreiche Abbildungen, DM 25, -- 
Verlag für Technik und Handwerk GmbH, 7570 Baden-Baden 


DISPLAY 0,10,"8"3 
340 FORI=1TD40: PRINT" ";:NEXT 

350 FRINT “ INTERFRETER MUSIG LANGUAGE 
360 FORI=ITO40:FRINT" ";:NEXT 

370 DISPLAY 0,22, "WENDE = Fi" 

+ r 
PLAY 1,1:FLAY 2,13PLAY 3,1:FLAY ON 64 
400 GETAF: IFAS="B" THENPOKES6S76+14, Q:50OUND RESET;END 
A10O DISPLAY 15,5,CHR#11)" 

420 DISPLAY 15,8,CHR# 123)" 

430 DISPLAY 15,7,CHR$s(Z)" " 

440 GOTO400 

7977 END 

50000 REM EINLESEN 

s00610 RESTORE:S{1) =40960: 5123=45058:5153=57344 
50020 FOR 5=1T03 

50030 READ A: IFA=-1THENZ=0:NEXTS: RETURN 

50040 FOKE S(5)+Z,A:2Z=2+1:G0T050050 
50050 : 

50050 REM MUSIK-DATAS : 

50070 : 
50080 DATAO,96,17,64,0,240,21,32 
50090 DATAO,16,26,32,0,112,16,48 
50100 DATAO,96,17,8,0,144,19,8 
50110 DATAO,965,17,32,0,0,0,32 
50120 DATAO,64,29,64,0,16,26,32 
50130 DATAO,192,34,32,0,16,26,32 
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50140 
50150 
50160 
50170 
50180 
50190 
50200 
50210 
50220 
50230 
50240 
50250 
50260 
50270 
50280 
50270 
50300 
50310 
50320 
50330 
50340 
50350 
50360 
50370 
50380 
50390 
50400 
50410 
50420 
50430 
50440 
50450 
50460 
50470 
50480 
50490 
50500 
50510 
50520 
50530 
50540 
50550 
50560 
50570 
S0580 
50570 
50600 
50610 
50420 
50630 
50640 
50650 


Ss0äh0, 


30570 
S0489 
Ss0s70 
30700 


DATAO,64,25,16,0,240,21,8 
DATAO,64,23,8,0,240,21,32 
DATAO,0,0,32,0,160,14,1& 
DATAO,112,16,8,0,76,17,8 
DATAO,144,19,8,0,240,21,8 
DATAO,64,23,8,0,15,24,8 
DATAO,64,29,8,0,16,26,8 
DATAO,64,23,8,0,240,21,8 
DATAO,144,19,8,0,98,17,8 
DATAO,112,16,8,0,160,14,8 
DATAO,16,26,16,0,64,29,8 
DATAO,224,32,8,0,192,34,8 
DATAO,32,39,9,0,224,43,8 
DATAO,128,46,8,0,32,52,8 
DATAO,128,46,8,0,224,43,8 
DATAO,32,39,8,0,192,34,8 
DATAO,224,32,8,0,64,29,89 
DATAG,165,26,B,0,160,11,1& 
DATAO,8,13,8,0,160,14,8 
DATAO,112,16,8,0,95,17,8B 
DATAO,144,19,8,0,240,21,8 
DATAO,64,23,8,0,240,21,8 
DATAO,144,17,8,0,968,17,8 
DATAO,112,16,8,0,160,14,8 
DATAO,9,13,8,0,160,11,8 
DATAO,248,10,15,0,160,11,8 
DATAO,9,13,8,0,150,14,8 


:DATAO,112,168,8,0,96,17,8 


DATAO,144,19,8,0,240,21,8 
DATAO,144,19,9,0,96,17,8 
DATAO,112,.168.8.0.160.14.8 
DATAO,8,13,8,0,160,11,8 
DATAO,248,10,9,0,200,9,1& 
DATAO,248,10,8,0,160,11,8 
DATAO,8,13,8,0,160,14,8 
DATAO,112,18,8,0,112,18,8 
DATAO,144,19,8,0,160,14,8 
DATAO,112,14,8,0,112,18,8 
DATAO,144,19,8,0,240,21,8 
DATAO,64,23,8,0,16,26,B 
DATAO,64,29,8,0,224,32,B 
DATAO,192,34,8,0,224,32,8 
DATAO,64,27,8,0,16,2&,8B 
DATAO,64,23,8,0,240,21,8 
DATAO,62,23,8,0,16,26,8B 
DATAO,64,27,8,0,16,26,B 
DATAO,64,23,8,0,240,21,8 
DATAO,144,19,8,0,76,17,8 
DATAO,112,16,15,0,16,24,16 
DATAO,240,21,16,0,76,17,16 
DATAO,144,19,16,0,16,26,1& 
DATAO,240,21,168,0,76,17,18 
DATAO,144,19,32,0,16,26,32 
DATAO,16,26,32,0,0,0,32 
DATA255,-1,0,96,17,16,0,16,26 
DATA16,0,240,21,16,0,16,26 
DATA16,0,96,17,16,0,16,2& | 





Gompuhe mi 


50710 
50720 
50730 
50740 
s50750 
0760 
50770 
0780 
50779 
SOBo0 
50810 
50820 
50830 
S0B45 
503509 
SO850 
50970 
50880 
S06970 
509700 
50710 
5307209 
509350 
50740 
509509 


. HOF&0 


509770 
50780 
50970 
51000 
31010 
51020 
51030 
51040 
Ss1050 
1080 
51070 
51080 
51090 
s1100 
Sı1110 
51120 
51130 
51140 
51150 
S1iä0 
511709 
s1180 
51170 
51206 


DATA16,0,240,21,16,0,16,26 
DATA16,0,144,19,15,0,16,2& 
DATA16,0,64,23,16,0,16,26& 
DATA16,0,96,17,16,0,16,26 
DATA15,0,240,21,16,0,16,2& 
DATA16,0,96,17,16,0,64,29 
DATA16,0,64,23,16,0,64,29 
DATA16,0,95,17,16,0,18,26 
DATA16,0,240,21,156,0,16,26 
DATA16,0,112,1&,16,0,16,26 
DATA16,0,144,19,16,0,16,2& 
DATA16,0,96,17,16,0,16,26 
DATA16,0,240,21,16,0,16,2& 
DATAi6,0,160,14,32,0,0,0 
DATAZ2,0,0,0,32,0,96,17 
DATA32,0,96,17,32,0,0,0 
DATA32,0,0,0,32,0,96,17 
DATAZ2 ,0,96,17,32,0,0,0 
DATA32,0,0,0,32,0,112,1& 
DATAZ2,0,96,17,32,0,0,0 
DATA32,0,0,0,32,0,248,10 
DATA32,0,160,13,128,0,160, 11 
DATA48,0,8,13,16,0,160,14 
DATA48,0,90,12,16,0,132,6 
DATAS,0,56,8,8,0,200,9 
DATAB,0,8,13,8,0,132,6 
DATAB,0,178,8,8,0,248,10 
DATAB,0,8,13,8,0,132,6° 
DATA8B,0,56,8,8,0,200,7 
DATAB,O,8,13,8,0,132,& 
DATAB,0,176,8,8,0,248,10 
DATAB,0,8,13,8,0,8,13 
DATA15,0,8,13,16,0,200,9 
DATA16,0,200,9,16,0,112,1& 
DATAZ2,0,0,0,32,255,-1,0,0 
DATAO,128,0,0,0,128,0,0 
DATAO,1298,0,0,0,128,0,0 
DATAO,32,0,0,0,32,0,0 
DATAO,32,0,64,23,32,0,248 
DATA10,32,0,0,0,32,0,0 
DATAO,32,0,248,10,32,0,200 
DATAF,32,0,0,0,32,0,0 
DATAO,32,0,200,9,32,0,17& 
DATAB,32,0,0,0,32,0,0 
DATAO,32,0,176,8,32,0,160 
DATA11,129,0,0,0,128,0,9 
DATALZ,168,0,200,9,16,0,17& 
DATAB,32,0,8,13,32,0,17& 
DATAB,16,0,8,13,164,0,200 
DATA?,128,255,-1 
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 ilLöt 


| Die FILL-Routine ermöglicht Ihnen aufeinfache und, da sie in Ma- 
. schinensprache geschrieben ist, im Gegensatz zu Basic auch auf 
überaus schnelle Weise, jeden beliebigen rechteckigen Bild- 
schirmausschnitt (oder auch den ganzen Bildschirm) mit einem 
bestimmten Zeichen oder einer bestimmten Farbe zu füllen. 
Nachdem Sie den Basic-Loader eingegeben und gestartet ha- 
ben, meldet sich das Programm nach kurzer Wartezeit mit der 
Frage, ob Sie das reine Maschinenprogramm auf Diskette oder 
auf Kassette speichern wollen. Um die Routine jetzt in einem Ihrer 


10 REM HB HB HRS 

15 REM * % 

20 REM * FILL-UTILITY % 

23 REM * * 

30 REM * EINGABEFORM: * 

35 REM * * 

37 REM # SYS47152,X1,Y1,X2,Y * 

38 REM # ns next * | Handbuch S. 139). 
40 REM * 1985 BY DANIEL DURSTEWITZ * Fr i 

35 REM # % 

50 REM # 4450 NORDHORN * 

SS REM #* * 

“0 REM * ; * 

65 REM EHRBBRNTRERI IHN RE 

703 

75 1 

80 FODRT=491527049335: READA: POKET „Ar F=P+A: NEXT 

85 IFP=2813560T0100 

20 PRINT"BFEHLER IN DEN DATAS! BITTE LIEBERPRUEFEN" 
95 PRINT"SIE DIE ZEILEN 136-151 NOCH EINMAL!"sEND 
100 FPRINT"®SSOLL DAS PROGRAMM AUF WDBISKETTE ODER" 


IFA$="D"THENFOKE49303, 98: BGOTD125 
IFA$="kK'" THENPOKE47303,1: 6070128 
GDTD106 

51347302: END 

150 

3135 r 


DATA134,252,32,241,193, 224,4; 


137 
140 
141 
142 


DATA4, 


ity-Routine_ 





INPUT"AUF EKBASSETTE ABGESPEICHERT WERDEN" SA$F 


134 ,: 28,80,176,235,134, 252,32, 
DATA1S4 ,254,165,254,29, 229,252, 16,18,165,252,72, 165,254, 153,252 104,133 
DATA234 ,76,39,192, 138,254, 169,25%,23, 227,281. 
DATA133,251,104,133,253,76,61,192,133, 

208,2,160,214, 166,252, 165, 251,132, 252,202,48,9,24,105,49,144,248- 
DATA230 , 252,208 ,244 , 133,251,32,241,183,138, 156, 254,232, 163,253, 200, 145 


tips & tricks 


Commodore 64 





Programme .zu verwenden, können Sie sie entweder mit LOAD 
„FILL-UTILITY",8,1 (von Kassette mit, 1,1) vorher oder innerhalb 
des Programmes einladen oder auch die Zeilen 10 bis 75 sowie 
85 bis 125 und 146 bis 151 aus dem Basic-Loader streichen und 
die Routine in DATA-Zeilen in Ihr Programm integrieren. 

Sie wird mit SYS 49152, X1, Y1, X2Y2, A, B aufgerufen. Dabei 
sind X1 (Spaite)/ Y1 (Reihe) und X2 (Spalte)/ Y2 (Reihe) die 
Koordinaten zweier sich diagonal gegenüberliegender Eckpunk- 
te des zu füllenden rechteckigen Bildschirmausschnittes. X kann 
die Werte 2 (linker Bildschirmrand) bis 39 annehmen, Y die Wer- 
te & (oberer Bildschirmrand) bis 24. Ist A=, so wird der Bild- 
schirmausschnitt mit dem Zeichen B (Bildschirmcode, s. Hand- 
buch $. 133/134) gefüllt. Ist A= 1 (bzw. größer als 9), so wird der 
Bildschirmbereich mit der Farbe B gefüllt. D.h. ein Zeichen, das 
in diesen Bildschirmbereich gesetzt wurde, bzw. mit Poke hinein- 
gesetzt wird, erscheint in der Farbe B (zu den Farbwerten s. 













Beispiel: SYS 49152,5,5,34,19,0,1 
füllt einen mittleren Bildschirmbe- 
reich mit einem Abstand von 5 
Kästchen zu den Rändern mitdem 
Buchstaben A 

SYS 49152,5,5,34,19,1,0 läßtaalle. 
Zeichen in diesem Bereich in 
schwarzer Farbe erscheinen. 








DATA32,241,183,224,40,184,3,76,72,178,134,251; 32.24 ‚183,224,25,176,284 
1 


‚183,224,25,176,226 


ie, 13,165,251,72,168,257 


53,32,241 183,224 ,,0,208,4, 160 


143 DATA251,136,16,251,72,165,251,24,105,40,144,2,230,252,133,251,104,202 


144 DATA16,232,76,174,167 

145 : 

1454 REM SAVYE-RGUTINE 

147 : 

150 DATA162,1,160,1,32,186,255,169,12,162,95,160,8,32,189,285,169,0,133,251 

151 DATA169,192,13%,252,169,251,162,150,160,192,32,221,245,96 
Gemsufe miß 
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Im Kampf mit der mutierten 
Riesenspinne auf Alukard | 


Durch eine bisher unbekannte Kraft werden sämtliche Funkverbindungen zwischen den ver- 
bündeten Sternensystemnen Delta und Radiax unterbrochen. Auf Ihrem Flug als Spezialkurier 
u zur entfernten Kommandozentrale X-64 geraten Sie unter mysteriösen Umständen in einen 
für Commodore 64 energetisch außerordentlich starken BEAM-Strahl und finden sich in der düsteren Welt von 


REM HR AluKard wieder. Dieser Planet wird von einer mutierten Riesenspinne be- 


FE „ herrscht, die durch permanenten Abwurf von Elektronetzen nach Ihrem Le- 
ZSREM # FIRELEGION {C} 19895 + ben trachtet. 

REM * WRITTEN BY * 

5SREM # CHRISTIAN WURZER * Während ein Treffer die Spinne lediglich für kurze Zeit lähmt, nicht aber zer- 
% REM * * stört, müssen die beiden jeweils von Links bzw. Rechts auftauchenden Rake- 
7REM * FOR COMMODORE &4 #* ten und eine kugelähnliche Lasermine durch gezieltes Feuern vernichtet wer- 
F REM * (JEYSTICK PORT2) * den. 


i0 REM RRRHRRRHHHHIHHIHIHIIHISIHRISIGEN 


11 : 


50 FOKES3ZRO 0: POKES3281,0 


2004 
2005 
2010 
2020 
2030 
2031 
2032 
2050 
2052 


DATAL20,169,51,1353, 1, 159,0,133,95,133,90,133,98,1589,208, 133, 78,167, ‚240 
DATA133,897,169,224, 132, 91, 32, 191,163,169,55, 133, 1, a8, Y& 

FORT=832T0832+33: READD:POKET „Q: NEXT 

5Y5832: POKEBSO „160: 5Y5832: POKES6574 „PEEK (56576) AND252: POKESS272,8B 

FOKE6848,192 

PRINT" SSRTEIRRSRTSTETGESTSTERETR] BITTE WARTEN !* 
PRINT" DATEN WERDEN EINGELESEN" 
READXı IFX=-1THENZO&80 

C5=57344+X#B1 FÜRISOTUFIREADZ: POKECG+I „Zs NEXT: GOTO20350 


20680 : 
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DATA54,0,0,0,0,0,0,0,3 

DATA65,0,0,0,3,15,127,255,255 

DATA565,0,0,0, 255,255, 255, 255,255 Sollten Sie schließlich doch, trotz aller An- 
DATA6&7,0,0,0,0,128,224,248,252 strengungen Ihres Gegners die 500-Punkte- 
DATA&B,7,15,15,31,31,63,127,127 Marke erreichen, wird der Kampf in seiner 
DATA&9 „254 „254 ,255, 255, 255,255,255,255 Endphase noch um einiges härter... 
DATA70,0,0,0,128,128,192,192,192 
DATA71,127,127,255,255, 255,255, 255,255 
DATA72,247,239,159,255,255,127,255,255 
DATA73,255,255,255,285, 254 ,252,252,252 
DATA74,224,224 224 ,64,64,96,112,120 
DATA7S,255,223,227,248,255,127,127,127 
DATA7&,255,,255, 255, ,255,127,127,63,223 
DATA77 ‚255,255, 255 , 255 , 255 „255, 254 „253 
DATA78,255,255, 255,255, 255,255,127,191 
DATA79,252,252,254,255, 255,255, 255,255 
DATASO0,124,124,248,248,240,240,240,248 
DATAB1,51,298,15,3,0,0,0,0 

DATAB2 ,255,35,220,255,255,31,3,0 
DATAB3,251,251,253,73, 170,240, 224,0 
DATAB4, 161,193, 227 ,255,255, 255,255, 255 
DATA85,239,239,239 ,239 ,240,239, 224,224 
DATAB& „252,252,252,212,148,254,0,28 u 
DATA87,127,127,127,127,63,531,3,0 2. . 
DATABB, 247,248, 255, 255 ‚255,255, 255,7 Steuern können Sie 


DATAB9,,212,82,255, 255,259, 255, 254,252 das Spiel mit dem 
| Joystick in Port 2. 
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2090 DATA?0,1,2,2,8,16,32,64,128 
2091 DATA91,1,2,4,8,17,34 ,68,136 Das Computer- 
2092 DATAF2,255,0,0,0,0,0,0,0 . 
2093 DATA93,255,64,32,16,8,452,1 f ),) 
2074 DATA94,255,68,34,17,8,4,2,1 VErEINS: e en 
2095 DATA95,128,64,32,15,8,4,2,1 
2096 ı Im März dieses Jahres wurde aus Freude am gemeinsa- 
z07B DATA102, 255, 255,255,254,254,252,252,238 | men Hobby „Computer“ die C64/Commodore Interessen- 
2099 DATA103,240,192,0,0,0,0,0,0 gemeinschaft Chiemgau/Inn eV. gegründet. Dieser Verein hat 
2100 DATA104,255,255,254,248,240,224,192,128B Wissen über den € - 
2102 DATA105,0,1,1,3,3,7,111,255 es sich zur Aufgabe gemacht, issen über den Gompu 
2103 DATA107,0,128,224,224,240,252,254, 255 ter weiterzugeben, Informationen auszutauschen und 
2107 DATA176,129,189,185,147,141,157,129,255 | Kenntnisse zu vertiefen. Dabei werden Programme aller - 
2108 DATA177,179,247,247,231,231,231,195,255 [| Art erstelit, Problemlösungen angeboten und dgl. mehr. 
2109 DATA178,129,189,253,129,159,159,127,255 | Auch der Unterricht in den Programmiersprachen wird 
2110 DATA179,193,253,253,225,249,249,129,255 berücksichtigt und jeder Interessierte hat die Möglich- 
2111 DATA180,191,191,187,187,129,243,243,255 | Defücksichügt. und ] de 
2112 DATA191,193,223,223,193,249,185,129,255 | keit, etwas über BASIG, Maschinensprache und andere 
2113 DATA182,129,191,191,129,157,157,1297,255 | Programmiersprachen zu erfahren. Natürlich kann man 
2114 DATAIBS, 127,187,251,247,231 ,231,231,255 | sich auch über die neusten technologischen Ubertra- 
2115 DATA184,195,219,219,127,157,157,129,255 | Qungsmöglichkeiten (DFÜ usw.) bei diesem Verein infor- 
2116 DATA185,129,169,189,129,249, 249,129, 255 mieren. Die Vereinstreffen sind vierzehntägig jeweils auf 
2120 DATA131,129,189,191,159,159,157,129,255 [| " festaelent. Jeder Computerfreund istbei 
2121 DATA133,129,191,191,135,159,159,129,255 | einen Samstag festgelegt. Jeder Computerfr 
2122 DATA137,239,239,239,231,231,231,231,255 | den Vereinstreffen herzlich willkommen oder hat die 
2123 DATA140,191,191,191,159,159,159,129, 7255 Möglichkeit sich telefonisch mit einem Dr 
2124 DATA143,129,189,187,157,157,157,129,255 | sitzenden in Verbindung zu setzen. 
2125 DATA146,129,189,189,129,155,157,157,255 | Kontaktadresse: 
2126 DATA147,127,189,191,129,249,185,129,255 | g.64/Commodore Interessengemeinschaft 
2127 DATA150,189,189,189,219,219,231,231,255 Chiemgau/inn eN 
2130 DATA108,25%8,255,255,20,117,20,117,117 Postlach 1207 
2131 DATA109,255,255,255,71,95,199,95,71 au 
2132 DATA110,255,255,255,113,119,113,119,17 | 8090 Wasserburg 
2133 DATA112,235,255,255,10,122,74,106,10 
2134 DATA11T,255,255,255,46,166,170,172,46,-1 
4000 DATA162,0,142,192,2,173, 0,220,201,112, 176,56,173,21,208,41,2,201,2,240,47 
4002 DATAS2,187,200,175,16,208,41,253,141,16,208,162,180,142,3,208, 173, 16,208 
4004 DATA41,1,201,1,208,8,173,16,208,9,2,141,16,208, 174, 0, 208, 12, 2,208 
4006 DATA173, 21, 208,9, 2,141, 21,208, 173,0,220,41,239,201,104,144,25, 201,108 
4008 DATA176,21,173,16,208,41, 1,201,1,240,7, 174,0,208,224,50, 240,5,162,255 
4010 DATA1A2,192,2,173,0,220,41,239, 201,104,176,21, 173,16,208,41.1, 201,1,208,7 

| 4012. DATA174,0,208, 224, 50,240,5,162, 1,142,192,2 
4014 DATA174,3,208,224,40,208,8,173,21 „208,41, 253,141,21,208 i 
4020 DATA174,30, 208,142, 254, 207,174,255,207, 224,0,240, 21,174,246,207 ,224,,0 
4022 DATA240,5,206, Das, 207, 208,6, 206 „255,207 206,246, 207,56, 176,126 
4024 DATA173,16,208,41,4, 201, 4,240, 12, 174, 4 ‚208, 224,70,176, 5,162,1, 142,247 ,207 
4026 DATA173,16,208,41, 4,201,4,208,12,174,4,208,224,60. 144,5,162,255,142,247 
4028 DATA207.174, 247,207, 142,194,2,174,253 „207,224, 0,240,5, 206, 253, 207,208, 24 
4030 DATA162,200,142,253,207,174, 250, 195,224,42,240,7,162,42,142, 250, 195 
4032 DATA20B,5, 162, a3, 142, 250,195, 173, 254, 207, 41,6, 201, 6,208,33,174, 196, 2 
4034 DATA142,247, 207, 32,128, 200, 162,0,142,196, 2, 162, 50,142,255, 207,173, 21,208 
4036 DATA41,253, 141, 21, 208,32, 0,200,174,30,208 
4040 DATAL73,21, 209,41,8,201, 8,240,44, 182,60, 142,7,208,174,4,20B,142,6,208 
4042 .DATA173,16,208,41,247,141, 1&,208,173.16, 208,41,4,201,4,208,9, 173,16,208 
4044 DATA9,8,141,16,208,173,21 ‚209,9,8, 141 ,21,208 
4048 DATA17a, 7, 208, 224, jet, 208, 8, 173, 21, 208, 41,247, 141,21,20B 
4052 DATA238,245, 207,174,245, 207, 224,19,208,5,162, ö, 142,245,207, 174,9,208 
4054 DATA174,9,208,224, 120, 208, 5,1&2,1, 142, 201,2,174, 97,208,224, 125, 208, 5,162 
4056 DATA25,142,185, 2,174,9, 209,224, 135, '208,5,162, 18,142, 185, 2,174,9, 208" 
4058 DATA224, 150, 208,5, 162,9, 142,185, 2,174, 9,208,224, 197,208,10, 162, 4, 142,185,2 
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4060 
A064 
4066 
4068 
4072 
4076 
4078 
4080 
4082 
4084 
4088 
4090 


DATA1&2,255,142,201,2 

DATA173, 254,207 ,41,18,201,18,208,45,32,128,200,173,21,208,41,237 
DATAL41,21,208,173,1&,208,41,239,141,16 ‚208,174,245,207, 142,0, 208 
DATA173,21,208,9,16,141,21,208,32,0,200,32,0,200,32,0,200,174.30,20B 
DATA173,16,208,41,16,201,16,208,10,174,8,208,224,200,209,3,238, 242,207 
DATA174 242,207 ,224,30,208,78,173,16,208,41,223,9,64,141,16,208, 162,180 
DATA142,11,208,142,13,208,162,1,342,10,208,162,100,142,12,208,162,4& 
DATA142,253,195,162,47,142,254,195,162,255,142,203,2,142,205,2,162,1 
DATA142,202,2,162,255,142,204,2,32,128,200,162,0,142,200,2, 173,21, 208 
DATA9,9&6,141,21 ,208,230,242,207,206, 8,208 
DATA173,254,207,41,34,201,34,208,23,32,128,200,173,21,208,41,221,141,21 
DATA208,32,0,200,32,0,200.238,241 ,207,174,30,209,173,254,207,41 66,201 ,&6 
DATA208,23,32,128,200,173,21,208,41,189,141,21,208,32,0,200, 238, 241,207 
DATAZ2,0,200,174,30,208,174,11,208,224,193,208,5,162,2,142,241,207 
DATA174,11,208,224,100,208,18,162,1,142,203,2,142,205,2,162,49,142,253,195 
DATA162,49,142,254,195 
DATA174,241,207,224,2,208,29,162,0,142,242,207,142,241,207,142,203,2 
DATA142,11,208,162,255,142,200,2,173,21,208,41,159,9,1&,141,21,208 
DATA173,254,207,41,1,201,1,208,88,32,128,200,162,1,142,33,208 
DATA32,181,200,173,21,208,41,133,141,21,208,162,8,1432,33,208 
DATA32,181,200,32,128,200,162,0,142,33,208 

DATA174, 240,207 ,224,176,240,11,206,240,207,174,240, 207, 142,106,195 
DATAZOB,6, 162,128,142,21,208,96 
DATA1&2,30,142,242,207,162,199,142,8,208,173,16,208,9,16,141,16,208 
DATA162,0, 142, 200, 2, 142,241,207, 172, 30,208 

DATAA74,251 ,207, 224, 181,208,24,162,23,142,180,2,162,7,142,183,2, 162,15 
DATA142.186,2,142,187,2,142,188,2,142,189,2 
DATA162,15,169,129,141,61,3,141,60,3,222,208,2,208,44,189,176,2,157,208,2 
DATA189,192,2,240,33,16,12,189,0,208,8,222,0,208,40,240,7,208,19,254,0,208 
DATA208,14,173,60.3,208,9,173,61,3,77,16, 208, 141,16,208,173,60,3,208,3,78 
DATA&1,3,73,128,141,60,3,202,16,191,76,24,196,-1 

DATA174 ,252,207,224,185,240,5, 238, 252,207 ,208,85,162,176,142,252,207 
DATA174,251,207,224,195,240,5,238, 251 ,207,208,6B,162,176,142,251,207 
DATA174 ,250,207,224,185,7240,5,238, 250,207 ,208,51,162,176,142,250,207 
DATA174,249,207,224,185,240,5,238,249,207,208,34,162,176,142,249,207 
DATA174,248,207,224,185,240,5,238, 248,207 ,208,17,162,176,142,7252,207 
DATA142,251,207,142,250,207,142,249,207,142,248,207 
DATA174,252,207,142,85,195,174,251,207,142,84,195,174,250,207,142,83,195 
DATA174,249,207,142,82,195,174,248,207,142,81,195,96 
DATA162,0,142,4,212,162,13,142,5,212,142,6,212,162,13,142,1,212,162,255 
DATA142,0,212,162,129,142,4,212,96 
DATA162,0,142,11,212,162,11,142,12,212,142,13,212,162,23,142,8,212,162,129 
DATA142,11,212,96 
DATA162,25,160,255,192,0,240,3,136,208, 249 ‚202,224 ,0,208, 242,96, -1 


E 

REM ---- SFRITES 

REM ---- GESCHUETZ 

DATAyaanasnas RSS IT IT SET T IT Hann; 6412, 95,28, 16,112 ,82 
DATA16,248,127,57,252,255,255,254 

REM ---- RÖKETE 

DATAugnyasayssmannısnonn en nn nenn Dan lb een, tb 
DATAysyyyyaysa HH 

REM ---- SPINNE A 

DATA, aaanısa name T IT II TI TI 10,6,,11,105,,18 
DATA245, ,36,4,128 

REM —-—- SPINNE RB 

IL TERTEEELEEREESETESERELERZERLERETERERSLEERERERTERLIETT UT FURL Ze Feel 
DATA244,128,72,2,64 

REM ---- NETZ 
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MITTEN. DENMMED. Epromprogrammiergerät für den 
MICRO-PROMMER Commodore 64 

die Hardware: - in tormschänem, die Elektronik schützendem schwarzem Kunststoffgehäuse 
- optische Funktionskontrolle durch LED-Anzeige 

- keine mechanischen Schalter, keine lästigen Strippen 

- programmiert alle Eproms der Typen 2716, 2732, 2764 und 27128 


- alle Schaltfunktionen wie Spannungsumsckaltung oder Typen- 
wechsel werden automatisch durch die Software durchgeführt, 


- industriell gefertigte Platine, doppelseitig mit grünem Schutzlack, 
bleiumschmolzen 


- mit tausendiach bewährtem TEKTOLL-IG-Sockel 
: = extreme Kleinstmaße (7x9x2cm) durch Kompaktbauweise 
- kein Netzteil erforderlich, Spannungen werden auf der Platine selbstständig erzeugt. 


























die Software: - komplett in Maschinensprache erstellte Treibersoftware 
- hedienerfreundiiche Menüführung durch alle Funktionen 
- durch „Window“-technik ständige Kontrolle der Eingaben 
- intelligente Super-Algorithmen sorgen für Spitzen-Brennzeiten 
- völlig neu erstellter Editor (Monitor) mit allen bekannten Möglichkeiten inte- 
griert 
- alle Ein- und Ausgaben erfolgen in deutscher Sprache 
Gesehen bei: Lindy-Elektronik GmbH, Mannheim, unverb. Preisempf, 198,- DM, inkl. Mehrwertsteuer 








.2 2.2 2 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 zz 2 2 2 2 2 2 2 2 sa a a ae en 








| Achtung!!! Weitersagen!!! - 


Gehäuseumbau für den 6-64 
aus Heft 9/85 


In unserer vorletzten Ausgabe haben wir einen Gehäuseumbau für den Com- 
modore 64 von der Fa. Maurer vorgestellt. In diesem Bericht hieß es, daß der 
gesamte Umbausatz zu einem Preis von ca. 570,-- DM erworben werden 
kann. Wie wir von einem aufmerksamen Leser erfahren haben, liegen die 
neuesten Preise für den Umsatzbau jedoch bei 745,-- DM, Bitte beachten 
Sie also hei einer evil. Bestellung den geänderlen Verkaufspreis, 


gar 


- "1000 Berlin 42 (Tempelhof) - Mo-Fr: 1048.Uhr - 
030752 EIER TS 


Pe VE ae EEE EEE Gera agree 
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5058 
5030 
5042 
5044 
5045 
5048 


ey 
5028 
030 


DATA,64,,5160,,5160, 53144, 51,88, ,24364,2,B4, 54,154, 15, 32,,2,80,,2,128, ,1 


DATA, nanSn nn TEL Un ST USER I LH Eh Inn 


REM -—--- LASERMINE 

DATA112,,,248, 42 24B 443248 y gl 12a ass HH ETHERNET TTITTTTTTENNTTE 
DATAysasaıan 

REM ——--- RAKETE A 

DATA,333376377110442420,24,104,,1,208, ,5, 176,49 224 ,547 96,5 ,64 


DATA, a 47931919997997997999999739999999 
REM --——- RAKETE B 


DATA, 5496, 3780, 454043022311 114128, 315, 192, 0 7m san ann nn sn nn 
DATAygssanasnı an 

REM = RAKETE UNTEN A 

DATAyy2436443396443224, 43,176, 515208, 55104444204 5,105 3,6 

AL ALEREKEERERERELESEHEEFELEHSTEELELT 

REM ---- RAKETE UNTEN B 

DATA, 54254464333, 71192,413,128, 5114512243590, , 380, 1776 

DATAusasan Haan TITT III TG 

REM -——-- STERN 

DATA,)FZ aan 9 33 5270937383034 151604, 1364,24, 21,116, ,74,250,144,1,124 
DATA, „248, ‚1, 154,4480, 44, 535g 1111 SLa san 99a 


REM -—---—— EINLESEN DER DATEN 4032 FORT=0T042: READU: FOKESZOF&G-+T „DE NEXT 
& 6034 FORT=0T0821READU: POKESZ160+T7T „WS NEXT 
FORT=6T09999 : READG: IFÜ=—-1 THENSO0B &034 FORT=OTDA2: READG: FOKESZ224+#T „De NEXT 
POKESO290+T ,GO: NEXT 6038 FORT=0T0621READO: POKES2288+T „G= NEXT 
FORT=0109999: READUs IFQ=-1 THENGO12 #040 FODRT=0TD4A2: READG: POKES2352+T „Os NEXT 
FOKES1200+T „Ge NEXT 6042: 

Ei 7000 REM -———— VARIABLEN,„DATEN 


FÜORT=0T052: READB: POKES1712+T „U: NEXT | 7002 ı 
FORT=O0T062: READO: POKES177&6+T „Ds NEXT | 7004 V=53248: POKEV+17 ,PEEK (V+17) ANDZ39 
FORT=0T062 : REARDG: POKES1B40+T ,G: NEXT | 7010 FORT=488T0719: POKET ,OSNEXT 
FORT=0T0862: READA: FOKES1F04+T „Os NEXT | 7014 FORT=39TD45: POKEV+T,15:NEXT 
FORT=0T082: READU: POKES1FAB+T,@: NEXT | 7022 POKEV,901 POKEV+1 „1811 POKE&BB,5 
FORT«OTOS2: READG: POKES2032+T „WI NEXT | 7024 POKE707 „255: FOKE&P1,4 


7026 FOKEV+4,100: FÜKEV+5, 371 POKE&92,30: POKE7OB,1 

7028 FÜKESF5,10: FOKE711,1 

7030 PODKE71Z, 255: POKE&HA, 10: POKEV+B, 11POKEV+9,197 

7032 POKEAPB,„22:POKE&SF9, 32 

7034 PDKE70O ,22: POKE?701,22 

7034 POKEV+14, 179: POKEV+15, 2141 POKESO175, SOs PÜKEV+4&,1 
7040 FOKEV+1&5 ‚Or POKEV+Z1 ;1+4+16+120 

7044 FORT=0T04: POKES3240+T, 176: NEXT 

7045 PDKEV+30,0: PDKESI247, ö 

7046 POKES3245, Or POKES3239, 11 FOKESS237 „0: POKESS2I4, 0: POKES3233, S: POKESI232,181 
70562 FÜOKESO1&S, 40: POKESO169, 4i 

7063 POKESO170,42:r POKES0171,42 

7054 FOKE50172,45 j 

BOiz 51-5477 21 FÜRT=-OTOZEı FÜOKESI+T „GO: NEXT 

8014 POKESI+24 ,31:POKESI+21 ,3: POKESI+22, S:POKESI+23,241 
sold : 

2000 REM ---- BRAFIK 

9910 : 


2020 PRINT"LIEI-4| |— 
7022 FRINT"TBI-a mia: 
9024 PRINTER U MI E - 








9026 PRINT"LEF LT iiw" 
9028 PRINT"LEIE._M x " i 
7030 PRINT" sec | " 


032 PRINT" 
7034 PRINT" 


FE: . “u 











Gompufes mir 11/85 


hardware 


7036 PRINT" Bun | “ 
3038 PRINT" Ei. “ 
9040 PRINT" B.. " 


97042 PRINT"’B.: " 
9044 PRINT:PRINT:PRINT: PRINTSPRINT:PRINT 


9055 PRINT'BRL pi 
oos8 FRINT"TOREE . 
906060 PRINT" n 
9042 PRINT"TEd SCORE 000000 LIVES 5 [ 
9064 FRINT'IEA MH " 
9054 PRINT"CH u 45 " 


7968 FORT=OT040 + FOKE49152+959+7 „160: FÜKESAZSS+T ,Jı NEXTIFOKEV+17 ,„PEEK (VHri I DR15 
09099 6Y550200 

10100 FOKE214,10: POKE211,13:5Y558840: PRINT"SAME DVER" 

10110 PRINTTAB (9) "BPRESS FIRE = NEW GAME" 

10120 FORT=0TD200: NEXT 

10130 IFPEEK (56320) <>111THENIOLFO 

en) Cure 


" Erweiterungsmöglichkeit fü für den VG 20/6 64 


Seit kurzem haben alle VG 20 und C 64 
Besitzer die Möglichkeit von einer Tasta- 
turerweiterung die im Fachhandel ange- 
boten wird, Gebrauch zu machen. Es han- 
delt sich hierbei um ein Zusatztastaturge- 
rät mit 22 frei programmierbaren Tasten. 
Diese intelligente Zusatztastatur ist eine 
Erweiterung der bisherigen „IA 2° Zusatz- 
tastatur. 
























Technische Daten „TA 3“: + keine zusätzliche Spannungsversorgung nö- 


+ intelligente, frei programmierbare Zusatzta- ig 
statur. Alle Zeichen finkl. Grafik) können auf i * CHERRYTasten mit GOLD-CROSSPOINT-KON- 
jede der 22 Tasten gelegi werden (SPAGE-TA- TAKTEN 
STE wird für Programmiervorgang benötigt). | & 2-teilige Tastenkappen, transparentes Ober- 
+ einfache Programmierung teil mit Symbolen vom beiliegenden Symbal- 


+ Leuchtdioden für Betriehs- und Program- | Bügen unterlegbar 
miermodus + Preis 179,-- DM inkl. MwSt. 


























Mit Hilfe einer Steuerplatine ist 
es möglich, die „alte“ Tastatur 
nachzurüsten. Außerdem 
kann mit der gleichen Steuer- 
platine die gesamte Commo- 
dore-Tastatur  umprogram- 
miert werden. Zu diesem 
Zweck wird die Steuerplatine 
zwischen die Tastaturshiftlei- 
ste auf der Rechnerplatine und 

“ dem an der Tastatur befindli- 

chen Kabel gesteckt. 










Die Redaktion ist der Meinung, dan 
diese sinnvolle Hardware-Erweite- 
rung neben jedam 6-64 oder VG-20 
Rechner ihren Platz finden sollte, 





Der Preis für diese Platine liegt 
bei 79,- DM inkl. MWSt. 
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werkstatt 


Nachdem wir bereits inunserer letzten Ausgabe unter der Rubrik „Werkstatt“ einProgrammzur 
Programmierung der Funktionstasten veröffentlicht haben, erscheint an dieser Stelle erneut 
ein Programm zur Funktionstastenbelegung. 





dem man eine individuelle Belegung der vier Funktionstasten 
(acht Belegungen in Verbindung mit der SHIFT-Taste) ermögli- 
chen kann. Sie müssen zunächst den Text eingeben, der auf die 
jeweilige Funktionstaste gelegt werden soll. Dabei ist zu berück- 
sichtigen, ob der Text durch anschließendes Drücken der RE- 
TURN-Taste oder nur durch Drücken der Funktionstaste ausge- 
geben werden soll. Nach der Eingabe der Texte, wird vom Pro- 
gramm eine Maschinenroutine erzeugt, die die dauernde Abfra- 
ge der Funktionstasten organisiert und ihre Belegung implemen- 
tiert. Jetzt können Sie die extrem kurze Routine abspeichern. 
Beim Arbeiten mit der Diskette geschieht dies mit 
LOAD”FUNK.-TAST.-BEL?,8,1 

Verwenden Sie eine Datasette geschieht dies mit 


REM #%%# 
REM *#* WICHTIG: ZEILE O9 GENAU SO +*+ 
REM ##+% EINGEBEN. DORT STEHT DER #%°%* 
REM #** SFAETERE FILENAME !arıııa 
REM #r%* 

REM ### WKRITTEN '85 EV 

REM #8 
REM x## 
REM ##%* 
190 GOSUB1900: GOSUBL100:5PF=" 

195 FRINT"WS FUNKTIONSTASTEN - BELESUNG” 

11C FRINT"R GEBEN SIE NUN DEN TEXT EIN, DEN SIE" 
120 PRINT" AUF DIE EINZELNEN FUNKTIONSTASTEN LE-" 
130 FRINF"E GEN WOLLEN {KEIN TEXT — NUR RETURN} ." 
150 FORI=1T08 

150 FRINT"E FUNETIONSTASTE" I" IMAX. 
170 TEF=5SFF: INFUT" ";TEF . 
IFLEN{TE#) FISTHENTES=SLEFTF (TER, 15} 
IFLEN(TEFISASTHENTEF=STEF+LEFTE (SPF, IT-LEN (TER) 


Er 


ar 
ArH 
#uH 
KR 
EZ 2 
#rr 


SEND AGN- 


WALDEMAR RAAZ 


15 ZEIEHEN}" 


POKE183,1&: FOKE187 ,11:POKELB8,B: 
POKE251 „0: POKE?S52, 192: 


FRINTCHRE (147 I; CHRF(17I,"  BELESUNG ABGESPEICHERT ! 
BELESUNG AKTIVIERT ! 


SYS49152: PRINTCHRE {1733 * 
END 


(zuvor müssen Sie aber im BASIC-Programm in Zeile 380 

POKE 186,1 geändert haben). 
Mit 3Y849152 wird die Funktionstastenbelegung aktiviert und der 
festgelegte Text erscheint bei Druck auf die jeweilige Funktions- 
taste, 
Die Aktivierung verliert natürlich beim Druck auf die STOP/RE- 
STORE-Taste ihre Funktion. Um nicht nach jedem RESTORE die 
Routine neu aktivieren zu müssen, empfiehlt es sich, die RUN/ 
STOP-Taste mit POKE808,251 abzuschalten. In unserer Routine ist 
diese Funktion nicht direkt eingebaut, da der ja bei der Program- 
mierung in BASIC äußerst hinderlich ist. Sie müssen jeweils 
selbst entscheiden, ob Sie den STOP/RESTORE-Schutz aktivie- 
ren wollen oder nicht. 


INFUT" {RETURNS ANHAENGEN (J/NI "SINE 

IFIN£="N" THENTEF=STEF+HCHRE (32) :GOT0220 
TE$S=TE$+CHRE (13) 

FORZ=1TO15: FOKEBACIIF+Z JASECMIDECTEF, 7,112 :NEXTZ,T 


PRINTCHRE (179"  ABSFEICHERN (J/NI 7" 
GETGS; IFG#="" THENZIO - 
IFG£="N"THEN43O 

FRINTCHR$ (17)" DISKETTE EINGELEST 7" 
GETGF: IFGE=""THENZ7O 


REM ABSPEICHERN 


REM BEIM ABSPEICHERN AUF DATASSETTE FOLGENDE AENDERUNGS 
REM 380 FOKEIB6,1 


POKE185,1: 
FÜKE186 ‚8: 


REM SEKUNDAERADRESSE 
REM GERRETEADRESSE 


REM FILENAMENFARAMETER 
REM FILERPARAMETER 

POKE750,251:PFOKE781 „208; FEEE7SZ , 192: 9Y545498; 
IFST=-128THENFRINTCHRF ILATISCHRELI FI Z " 


REM SAVE-ROUTINE AUFRUFEN 
DATENLUEBERTRÄGUNSSFEHLER !11%:5T0OR 


- ok!" 
- oc" 


REM **# MASCHINENSFRACHE — CODE *#* 
DATA120,169,13,141,20,3,169,192,141,21,3,88,96,198,2,7208,28,169,9, 133 
DATA2,169,128,174,141,2,240,3,24,105,64,162,6,228,203,240,11,56,233,1& 
DATA20?,224,2,208,244,76,49,234,141,57,172,141,68,192,162,0,189,96,192 
DATAZ2,210,255,232,224,15,48,7245,189,975,192,141,119,7,169,1,133,198,7& 
DATAA9,234 

RESTORE : SU=0 
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1020 
1030 
1040 
1100 
1119 
1120 
1130 


RETURN 
REM #*# 


RETURN 
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FORI=491527T049231: READA: SU=SU+A: FOKEI „A=:NEXT 
IFSUS >9&459THENPRINT"FEHLER IN DATA-ZEILEN }t"25T0P 


BATA497247 ,49263,47279,49231,49311,49327, 49343, 49295 
FORI=1T08: READA: BACTY=A: NEXT 


% Leserecke + Meckerecke 


Programme für den 
Commodore Plus/4 


Wie ich aus Ihrer Zeitschrift entnommen 
habe, haben Sie sich u. a. auf Commodore 
spezialisiert. Nun möchte ich wissen, ob 
Sie auch Programme für den Commodore 


| Plus/4 besitzen. Mich interessieren dabei 


Spiele und Detailinformationen über die- 
ses System. Vielleicht können Sie mir 
auch sagen, wie ich an weitere Informatio- 
nen über meinen Gomputer im Raume 
Bonn kommen kann. 

Goran Soehl, Bann 3 


Redaktien: 

Sicherlich wäre es auch für uns von gro- 
Ber Interesse Programme und Informa- 
tionen für dieses Computersystem zu ver- 
öffentlichen. Uns liegen z.Z. jedoch kei- 
nertei Programme für den Commodore 
Plus/4 vor und somitsind wir auch nicht in 
der Lage, Veröffentlichungen vorzuneh- 
men, Vielleicht ist es jedoch auf diesem 
Wege möglich Besitzer von Plus/4 Com- 
putern anzusprechen, die Ihre selbstent- 
wickelten Software-Unterlagen unserem 
Verlag zur Verfügung stellen. Kontakt- 
adressen aus dem Raum Bonn sind uns 
leider auch nicht bekannt. 


Fehlerhafte Listings 


ich finde es eine Frechheit, daß Sie für 
2,80 DM nicht einmal im Stande sind 
_ nachzuprüfen, ob in den Listings keine 
Fehler vorhanden sind. 


1/85 


In der Ausgabe 9/85 bemerkte ich, daß in 
dem Programm „Duell“ in der Zeile 450 ei- 
ne Fehlermeldung kam, die nach Ihrem 
Abdruck keine war. Die anderen Program- 
me für den CPC 464 habe ich noch nicht 
angefangen, aber garantiert wird auch 
hier ein Fehler vorhanden sein. Wenn Sie 
es nicht schaffen, solche Fehler nicht mit 
abzudrucken, dann können Sie Ihre Zeit- 
schrift nur noch verschenken. Ir Hoffnung 
auf „fehlerfreie“ Listings ein bedauerns- 
werter Leser. 

Leider mußte ich diesen Brief schreiben, 
weil Sie ruhig merken können, was andere 
Computerfans wirklich von Ihrer Zeit- 
schrift halten. 


Redation: 

Zunächst haben wir wirklich überlegt, ob 
wir anonym eingesandte Briefe überhaupt 
veröffentlichen sollen. Nach eingehender 
Beratung und der Wichtigkeit des The- 
mas, möchten wir aber gern zu der geäu- 
Berten Kritik Stellung nehmen. Der Redak- 
tion unserer Zeitschrift ist es gelungen, 
sämtlich bisher veröffentlichte Program- 
me fehlerfrei abzudrucken. Auch das 
„DUELL“ aus Heft 985 ist absolut fehler- 
frei veröffentlicht. Aus dieser Tatsache 
heraus glauben wir, daß ihre Kritik etwas 
fehl am Platze ist. Wir werden auch wei- 
terhin bemüht sein, unseren Lesern eine 
informative, interessante und fehlerfreie 
Zeitschrift anzubieten. 

Sollten jedoch noch andere Leser Proble- 
me mit fehlerhaften Listings in den Aus- 
gaben 5/85 bis 10/85 haben, bitten wir 
um entsprechende Benachrichtigung. Bei 
Problemen mit der Eingabe oder Handha- 
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bung der veröffentlichten Programme ste- 
hen wir natürlich jederzeit mit Rat und Tat 
zur Seite. 

Im übrigen gehen wir davon aus, daß un- 
sere Leser nicht so schlecht von unserer 
Zeitschrift denken, wie Sie vielleicht ver- 
muten. Oder? 


Super!!! Endlich Spiele fürden Commodo- 
re 16. 


Leider habe ich ein Problem. Aus finanziel- 


ien Gründen kann ich mir leider keine Da- 
tasette oder Floppy-Laufwerk zulegen. 
Können Sie nicht eine Schaltung veröf- 
fentlichen, in der man einen einfachen 
Kassettenrecorder als Datenübertra- 
gungsgerät verwenden kann. Auch inter- 
essiert mich der Bau eines Joysticks, Kön- 
nen Sie nicht einige Ratschläge veröffent- 
lichen. 

Raif Sperling, Detmold 


Redaktion: 
In dieser Ausgabe finden Sie bereits einen 
Bericht über den Umbau eines Kassetten- 


recorders zum Datenübertragungsgerät | 


für dieSysteme C-64/VC-20/ PG-128. Lei- 
der war bei Redaktionsschluß die Stecker- 


belegung für das System C-16 noch nicht 


ganz geklärt, Wie werden jedoch in unse- 
rer nächsten Ausgabe auch für dieses Sy- 
stem einen Belegungsplan veröffentli- 
chen. Geplant ist eine Serie über den Bau 
eines Joysüicks, so daß wohl in naher Zu- 
kunft Ihre Hardware-Probieme gelöst sein 
werden. 





21 


werkstatt 





Der Standard-Kasseitenrecorder als Dataseite 





Der Kassettenrecorder-Anschluß der 
Commodore-Rechner ist nicht für her- 
kömmliche Recorder geeignet und erfor- 
dert eine Sonderversion, mit TTL-Ein- und 
Ausgangspegel, die bekannte Datasette. 
Mit der unten abgedruckten Schaltung 
kann man sich jedoch den Kauf dieser 
Datasette ersparen, da sich nun jeder be- 
liebige Kassettenrecorder als Datenüber- 
tragungsgerät eignet. Die Schaltung kann 
man sehr leicht auf einer kleinen Lochra- 
sterplatine aufbauen und in einem Käst- 
chen zwischen Rechner und Recorder un- 
terbringen. Selbstverständlich wäre auch 
der Einbau in das Rechnergehäuse mög- 
lich, doch gehen dadurch evil. be- 
stehende Garantie-Ansprüche 
verloren. 

Die gesamte Interface-Schaltung 
besteht nur aus 6 Teilen und dürf- 
te somit auch sehr leicht für An- 
fänger aufzubauen sein. 





Folgende Bauteile werden benötigt: 


2 Widerstände 10 Kilo Ohm 

2 Widerstände 100 Kilo Ohm 

1 Potentiometer 100 Kilo Ohm 

1 CMOS IC 4069 

DIN-Stecker Stecker für Kassetienport 
50 cm abgeschirmte Leitung 

Zeit ! 


Der CMOS-Schaltkreis 4069 enthält sechs Inverter, von denen 
der Erste als Verstärker und der Zweite als Trigger eingesetzt 
wird. Das Tonsigna! wird dann der Ausgangsstufe, bestehend 
aus zwei paralleigeschafteten Irvertern, wahlweise direktoder 
über einen Inverter zugeführt. Die Schalterstellung hängt von 
der Phasenlage des jeweiligen Kassettenrecorders ab. Die 
Schaltung benötigt keine zusätzliche Spannungsquelle, denn 
die Versorgung wird durch den Computer übernommen. 

Da der Gommodore-Rechner die Pfay-Taste abfragt, müssen 


Cassette 


GND 
+5V 


CASSETTE MOTOR 
CASSETTE READ 
CASSETTE WRITE 
CASSETTE SENSE 





die Kontakte A und F des Kassetten-Port’s kurzgeschlossen 
werden. Dadurch wird gem Rechner immer eine gedrückte Ta- 
ste übermittelt. Durch einen Eingriff in den Recorder könnte mit 
Hilfe eines kleinen Relais auch eine richtige Tastenabfrage er- 
folgen, was jedoch rur selten erforderlich ist. 


Das Potentiometer soll den hohen Ausgangspegel (TTL 5 Volt) 
des Kassettenports für den Recorder abschwächen. Die Ein- 
selling sollte so erfolgen, daß der Recorder etwas übersteuert 
wird, Der Ausgangspegel des Recordars sollte mit Hilfe eines 
Meßgerätes eingestellt werden. Er stimrnt, wern heim Laden 
einer Commodore-Kassette am Anschfuß 2 des IC’s etwa 2-3 
Yolt anlegen. 


Selbstverständlich können auch Kassetten, welche mit derOrj- 
ginal-Datasstte aufgenommen wurden, mit unseren Interface 
geladen werden. Auch umgekehrt gibt es keine Probleme, le- 
diglich die Schaltersteilung Kann in einigen Fällen von Bedeu- 
turG Sein. 


Im übrigen arbeitet das Interface auch'mit den Rechnern G-16 | 
und C-116, Leider war bei Redaktionsschluß die Steckerbele- & 
gung noch ungeklärt. Wir werden dies in einer der nächsten 
Ausgaben nachtragen. 


r23456 


en 


ABCDEF 


ro 
EZ IC 4069 
c4 00 
VC 20 cd 8 10 
128P 0 5 — INNEN 
AC— I / 
I INTERFACE sı 
Ä 100K Ka 
1 RECORDER Na | eV 
3 .B | I 
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Die SoftCard, so der offizielle Name dieses 
neuen Speichermediums, erlaubt es je- 
dem Anwender, Programme bis zu einer 
Größe von 128 KByte zu speichern. Das 
bedeutet, daß die SoftCard sehr komplexe 
Programme beinhalten kann, weiche ab- 
schnittsweise geladen werden, was die ef- 
fektive Speicherkapazität des Systems 
wesentlich erhöht. Außerdem erlaubt die 
SoftCard auch den Aufdruck von Grafiken 
oder Programmbeschreibungen. 
Besitzern von Commodore 64 und 128 
Computern stehen Adapter zur Verfü- 
gung, welche es ermöglichen, über den 
ROM-Kassetten-Schacht die SoftGard 
aufzunehmen: Adapter für andere Gom- 
putersysteme sind in Vorbereitung. 
Gegenwärtig sind auf SoftGard masken- 
programmierte ROMs und PROMs verfüg- 
bar. Voraussichtlich bis zum Jahresende 
werden auf SoftCard auch löschbare 
EPROMS und C-MOS-RAMs (batteriege- 








puffert} erhältiich sein. 

Software-Anbietern verrnitteit die PROM- 
Version der SoftCard eine völlig neue 
Unabhängigkeit. Mit einem gewöhnlichen 
EPROM-Programiergerät und einem 
Adapterstück zur Aufnahme der Karte ist 
ein Programm in wenigen Minuten auf 
SoftGard übertragen. Zudem verringert 


‘sich der Organisations- und Verfügbar- 


keitsaufwand auf nur ein Element, die 
SoftCard, welche unabhängig vom Gom- 
putertyp verwendbar ist. Das aber auch 
Verpackungsaufwand, Lager- und Trans- 
portkosten geringer sind, versteht sich 
fast von selbst. 

Für Einsteiger gibt es passend für Com- 
modore 64/128 einen Test-Satz mit Leer- 
karten und allem notwendigen Zubehör, 
um die PROM Versionen der SoftCard zu 
programmieren. 

Gesehen bei: Reis-Ware Gomputer-Produkte 
GmbH, 5594 Bullay 





In der Zeit vom 15. Oktaber bis 8. Navemher 1985 wird die internationale Technolo- matik, Bildschirmtext, Roboter-Technik, Gomputer-Graphik und Personal 


gie Ausstellung EXIBIT für alle.interessierten Ihre Pforten geöffnet haben. Compufer. 


Die Ausstellung, die bereits in sechs europäischen Ländern urid in Stuttgartzu Die gesamte Ausstellung ist inhaltlich, wie auch von der Darstellungsform 
sehen war, richtet sich vor allem ar Jugendliche im Alter zwischen 16 und 25 her, für junge Menschen angelegt. Aber auch der Besuch eines breiten Publi- 
Jahren. Gezeigt wird in einem rund 50 m langen Glaspavillon die Welt der Infor-" kums isterwünschtund jeder Interessierte sollte von der Möglichkeitdes ko- 
matronsverarbeitung. Sie qliedert sich in folgende Teilgebiete: Informatik, Tele- stenlosen Besuchs dieser Ausstellung Gebrauch machen, 





Pressefoto IBM 


1085 Ä Compute mi 


Software und Zubehö 













r für 


Über 2060 Programme immer auf Lager. 
Ständig die neuesten Programme aus England und 


den USA. 


Gratiskatalog anfordern: 


Anton Peter & Partner, Kamminerstraße 9 
1000 Berlin 19, 453271 
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Schließen Sie Ihren Joystick in Port 2 
an und drücken Sie den Feuerknopf. 
Auf dem Bildschirm erscheint der Tau- | den sicheren Tod. Achten Sie aber auch 
cher unterhalb des Expeditionsschif- | auf Ihren Sauerstoffvorrat, der im unte- 
fes. ren Bildschirmrand angezeigt wird. Ha- 
Ihre Aufgabe besteht nun darin, den ! ben Sie die beiden Goldbarren sicher zu 
Taucher durch das Riff und vorbei an | Ihrem Schiff zurückgebracht, erscheint 
den gefährlichen Meerestieren zu den | das nächste Bild. Kehren Sie ohne 
Goldbarren zu steuern und diese aufzu- | Goldbarren zu Ihrem Schiff zurück, 
nehmen und zu Ihrem Schiff zurück- 





zubringen. Jede Berührung mit den 
Meerestieren oder dem Riff bedeutet 


sterben Sie ebenfalls. 


1 REM BRRHHRHRHRRHHHHHHHHIHIHHIHIHIE IE 
"2 REM * SCHATZTAUCHER * 

SS REM * WRITTEN 17855 * 

4 REM # BY * 

5 REM # JAN-FETER GUZIK * 

6 REM # UND * 

7’/REM * RAINER NABELSCHMIDT * 

B REM HH EEE ER 

io FORT=13300T7015335: READF: FOKET „Fr FE=FE+F 3 NEXT 

20 IFFE<S >3797THENFRINT"IHFEHLER IN DATAS (1400-1410)":5T0OP 


180 
170 
180 
170 
200 
zi0 
220 
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SYS15300 

FE=0: FORT=15872T01&015: READF : POKET ‚FıFE=FE+F= NEXT 

IFFE< >17639THENPRINT"LIBFEHLER IN DATAS (1420-)"25TOP 
POKE65298 ,65: POKE65299,125 

VOLB 

B=3072: F=2048: AB=0.3:BO=14:BlI=1 

SCNELR 

COLOR4,8,6: C0L0ORO,7,0 j | 
FORT=1T0&: PRINT "EZ "NEXT 
ONBISNTO130,330 | 

E1=30: E2=19: E3=25: E4=21:FX=23:KX=22: F1=11:F2=20:F3=21:F4=19: A1=9: A7=18 
PRINT" B— ———— 1 TTTTTTT TI 1710 17 007000000" 
PRINTT——— + 

PRINTT——— | Ö 

PRINT Te 

PRINT — en 

FRINT" ——— —t 

PRINT ARRSE EU 

PRINT" aRShSESbe ee" 

PRINT" #044 PET TUT U TC 
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230 
240 
250 
250 
=70 
280 
270 
300 
310 
320 
330 
540 
350 
350 
370 
380 


400 
410 
420 
430 
440 
450 
440 
470 
480 
490 
S00 
s10 
320 
530 
240 
SS0 
S60 
5370 
580 
370 
soo 
10 
520 
50 
540 
50 
660 
670 
680 
670 
700 
710 
720 
730 
740 
750 
760 
770 
780 
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PRINT" 24244 ErTeRN Eee re. ETTERTT ry 
PRINT"## ee TE E 
FRINT'" 244 at 44 + Ey) 
FRINT" 44222428 dh + + 
PRINT"+ + * E Sy 
FRINT—- nn _" 
PRINT”- u u [——t 
PRINT"-— — nn TE — 
PRINTTISRSASAASASASASSAASA AH EE A FAR RER RE RE 


81=2: 6070530 

E26: E2=19: E3=35: EA=29s FXS31:KX=25: F1=113F2=15:F3=14:F4=19r Als 322 
PRINT" 

PRINT" _. 

PRINT —— —t 

PRINT" ü 

PRINT" ——— —t 

PRINT" — —' 

FRINT"SHRSSASSSAEE Sbst et 

PRINT" ERSASSSHEE SERSSEESR 














PRINT"244++ Sn 2er ee" 

PRINT"# +4% E22 2 — ce Sue 7 7 ver \ 

FRINT"AGER _ et Dirt ET Zu 

PRINT" 4 a Eu 

PRINT'2I4 aan L EEE + 

PRINT"« EIER ren EL r epner 2 

FRINT”— ELerr 1 —— a + . 

FRINT"— _ _ ET 

PRINT’— Do ———0. A nn vu 

PRINT 'TIRRASRREASSSEERSE EIER" 

BI=t 

GDSEUB17240 i 

GOSUB101O0 770 FOKEB+KX+F3#40,32 

Y=7:0X=151:6E=0+: T1=70: T2=71 800 FPOKEB+(KX-A2)+F4#40,32 

POKEB+X+Y%*40 ,32: POKEB+ (X-1)+Y%40,32 810 DNG?GOT0820,830 

J=I0Y (2) 820 KX=KX+1:G0T0840 

SOUNDS3,1020,3 850 KX=EX-1 

IFI=STHENX= X+lz T1=70: T2=71: 6010630. 840 PS=PEEK (B+KX+F3#40) 

IFJ=7THENX=X-1:2 T1=73: T2=72; : 50T0430 850 FOKEF+KX+F3#40,107 

IFJ=1THENY=Y-1:60T0630 840 FÜKEB+KX+F3#40,68 

IFJ=STHENY=Y+1:6DT0630 870 P&=PEEK tB+ (KX-A2) +F4*40) 

P1=PEEK (B+X+Y#40) :P2=FEEK {B+ (X- 13 +Yx#40) 8B0 POKEF+ (KX-A2) +F4#40,107 

POKEF+X+Yx#40,, 1133 POKEF+ iX- -1)+Y#40,115 870 FOKEB+ (KX-A2) +F4*40,4B 

POKEB+X+Y#40,T1:FOKEB+tX-1)+Y#20 „T2 200 IFFX=ESTHENGIi=? 

REM #»#*#* 1. UND 2. FISCH x#* 310 IFFX=EITHENGIi=1 

POKER+FX+F1#40,32 920 IFKX=E1THENG?=? 

POKEB+{FX+A1) +F2%#40,32 . 930 IFEX=E?THENG?=1 

ONE150T0700, 710 240 IFF1< >3Z0ORP24 >32 

FX=FXi+2: Ri=ä6: GOT0729 DRPI< >320RP4< >320RFS< >37 

FX=FX-2:R1=67 ORP&< >3ZTHEN11BO0 

F3=FPEEK (B+FX+F1*40) 950 GOTO1030 

FOKEF+FX+F1#40,90 940 REM #*** GOLD AUFNEHMEN * 

FOKEB+FX+F1*40,R1 770 SDUNDI „900,20 

PA=PEEK {B+(FX+A1)+F2240) 780 SC=-5C+20: SOSUBLO10 

POKEF+(FX+A1l)+F2*40,90 . \ 9975 GE=GE+1 

POKEB+ (FX+A1)+F2x*40,R1 1900 GOTO1O30 

REM ##*# 1. UND 2. ERAKE »x%+ 1010. REM ##38*= SCORE xx%% 
Compute mi Ä 25 
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1030 REM ##*%* 


CHAR1, 2,24, "BSCORE: ":FRINTSC"D" RETURN 
UXYGEN ##%# 


1110 
1120 


SC=5C+100: 50SUBI1010 
FORT=1TD4 


1040 OX=0X-aB 1139 FORTT=1T015 

1050 CHAR1,20,24,"BOXYGENE "+ FRINTINT(OX)"g gg" | 1140 SOUND! ,SO+TT+100,3 
1060 IFOX<ITHEN1180 1150 NEXT=NEXT 

1070 60T0540 1160 IFAR<O.7THENAB=AB+O.1 
1080 REM x##** GOLD ABLEGEN x#** 1170 G0T070 


10970 
1100 


12530 
1240 
1250 
1280 
1270 
12850 
1290 
1300 


1390 
1400 
1410 
1420 
1430 
1440 
1450 
1440 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 


1550 


15650 
1570 


15390. 


1570 





IFGES >2THEN1210 
IFFEEK (B+X+ (Y-2) #40)< >204 THEN1710 


RUN?O 

PRINT" ge" 
PRINTTAB (BO) "3 
FPRINTTAB<BO) "ZZ 
PRINTTAB (BO) "I 
PRINTTAB(BO) "RB HL" 
X=B0+3 

IFS=1THENRETURN 


1180 
11970 
1200 


REM ##x* GAME DVER 8% 
IFP1=S&FORP2=A9 THENFSO 
IFFPi=BÖTHENIOBO 


1210 CHAR1,11,10, "DE GAME UOVER Mm" 
1226 FORT=700T010205TEF5: 5SUUND1,T,2:NEXT 


1310 
1320 
13350 
1340 
1350 
: 13560 
1570 
1580 


M ıE 
® [[: 


, | 
u “ 


REM DATAS FUER NEUEN ZEICHENSATZ 


ONRGOTO1320, 1330 
BO=B0+1:GOT01340 
BO=B0-1 
IFBO=31THENR=? 
IFBO=13THENR=1 
SDUND1,700,2 

IFJOY (2) >127THENS=1 
GOTO1240 


DATA169,0,133,3,133,5,169,211,133,4,169,63,133,6,160,0,177 
DATA3,145,5,136,208,249,198,4,198,6,165,6,201,59,208,237,96. 


DATAS7 ,199,116,99,205,190,210,111 
DATA177,112,95,128,91,182,12,119 
DATAO,156,190,243,255,190,156,0 
DATAO,57, 125,207 ,255,125,57,0 
DATA24,60,126,42,73,145,137,66 
DATA, 136,73,42,0,60,126,126 
DATA12,16,38,254,38,64,128,0 
DATAO,64,126,3,124,64,1,0 
DATA48,8,100,127,100,2,1,0 
DATAO,2,62,224 ,62,2,128,0 
DATA255,121,57,31,15,7,3,1 

DATA255, 255,247 „227 ,227 ‚247 ‚255,255 
DATA255, 254 ,252,248,240,224,192,128 
DATA1,3,7,15,31,63, 127,255 
DATA255,255,255,255,255,255,255,255 
DATA192,224,240, 248,252, 249,240 ,224 
DATAO,0,28,36,72,143,0,0 
DATA192,192,192,192,192,192,192,192 


Speicher- und Laderoutine tür 


Zum Abspeichern und Laden von Basic- 
programmen stellt das Basic des C16/116 
die Befehle SAVE und LOAD zur Verfügung. 
Doch will man beliebige Speicherbereiche 
(Maschinenprogramme, Grafikbild- 
schirm, RAM-Zeichensatz, etc.) laden 
oder abspeichern, muß man auf die Be- 


fehle des eingebauten Maschinensprach- 
monitors zurückgreifen. Abgesehen da- 
von, daß diese Befehle dem Basic-Pro- 
grammierer nicht unbedingt geläufig sind, 
haben sie den entscheidenden Nachteil, 
daB man sie nicht in eigene Basicpro- 
gramme einbinden kann. Hier setzen nun 
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den C16/116 


die Routinen ein; als Unterprogramme in 
eigene Programme eingebunden, bieten 


sie die Möglichkeit ABSTURZFREI beliebige 


Teile des Speichers nachzuladen oder ab- 
zuspeiehern. Da dabei die Systemroutinen 
des G16/116 genutzt werden, gibt es kei- 
nen Geschwindigkeitsverlust gegenüber 
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Beim Arbeiten mit Diskette wird nach je- 
der Operation zusätzlich der Fehlerkanal 
"abgefragt. 


REM FROGRAMM ZUM ABSTURZFREIEN AB- 
SPEICHERN VON BELIEBIGEN TEILEN 


DES SPEICHERS ! 
WRITTEN 1985 BY WALDEMAR RAA? 


FOLGENDE VARIABLEN MUESSEN DEM 

FROGSRAMM DEBERBEBEN WERDEN: 

NAS-NAME DES NACHZULADENDEN FRGS. 

AA -ANFAKHBGSADRESSE DES SPEICHER- 
BEREICHS 

EA -ENDADRESSE+1 DES SFEICHERBE- 
REICHS 


FOLGENDE VARIABLEN STELLT DAS 
FROGRAMM NACH BEENDIGUNG ZUR 
VERFUEGUNG; 

FZ -EVENTUELLE FEHLERNUMMER 
FB#-FEHLERBEZETICHNUNG 

FT -TRACKNUMMER DES FEHLERS 
FS -5EKTORNUMNER DES FEHLERS 


REM ##* SAVE-FARAMETER SETZEN 
5Yy543115 NAF,D,„1 

H1=INF tAAFZSSI = FOKE217,H1 
L1i=AA-255#H1 «FOKEFI6,L1 
HZ=INT (EA/ 236) : PFOKEROSA „HZ 
LZ=EA-2565%H2  :FOKEZOSS,LZ 


RR 


REM »*# SAVE-ROUTINE AUFRUFEN ##+* 


FOFE2Z034 , 216: SYSA5496 


REM ##* FEHLERKANAL AUSLESEN #%*%* 
DPEN1 ,8,15 

INPUT#1,FZ,FB$,FT,FS 

CLOSE1 


. 
“ 


REM 
REM 
REM 


IN DIESER ZEILE MUS5 <RETURN> 
STEHEN, WENN SIE DAS FROGRAPMM 
ALS UNTERROUTINE VERWENDEN ! 


REM 
REM 
REM 
REM 
REM 


‚FUER DATASSETTENBETRIEB. SIND 

FOLGENDE AENDERUNGEN NDETIG: 

- 50020 5Y543115 Nas,1,1 

- DIE FEHLERKÄANALABFRÄGE {AB 
ZEILE 50140) WEBGLASSEN |! 


tips & tricks-- 


den normalen LOAD und SAVE-Befehlen. Die Bedienung der Routinen ist extrem einfach: 


Man hängt sie als Unterroutinen (das abschließende [RETURN] nicht vergessen) an sein 
Programm an und ruftsie mit GOSUB auf. Vorher muß allerdings in der Variablen NA$ der 


Name des Files (min. 1 Zeichen, max. 16 Zeichen lang) abgelegt 
werden, das gespeichert oder geladen werden soll. Bei der Spei- 
cher-Routine müssen zusätzlich in der Variablen AA die Anfangsa- 
dresse und in EA die Endadresse+1 des abzuspeichernden Be- 
reichs übergeben werden. Nach Beendigung der Routinen stehen 
folgende Variablen (beim Arbeiten mit Diskette) zur Verfügung: 


FZ - Fehlernummer eines eventuell aufgetreienen 
Fehlers 

FBS - Fehlerhezeichnung im Klartext 

FT - Tracknummer des Fehlers 

FS - Sektornummer des Fehlers 


Abgedruckt sind jeweils die lauffähigen Diskettenversionen. Beim 
Arbeiten mit Datasette sind folgende Änderungen vorzunehmen: 


- Zeile 60020 muß lauten: 
SYS543115 NA$ 1,1 


- Die Fehlerkanalabfrage ab Zeile 60140 
muß weggelassen werden 


Weiterhin können natürlich alle REM-Zeilen beim Abtippen weg- 
gelassen werden; sie dienen nur der Übersichtlichkeit, Die Routi- 
nen an sich sind sehr kurz. 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


PROGRAMM ZUM ABSTURZFREIEN NACH- 
LADEN VON PROBRAMMTEILEN !ırrrtı 


Eneneee 


WRITTEN 1955 BY WALDEMAR RAAZ 


FOLGENDE VARIABLEN MUESSEN DEM 
PRÜSRAMM UEBERGEBEN WERDEN: 
NMAF—-NAME DES NACHZULABENDEN FR6GS. 


FOLGENDE VARIABLEN STELLT DAS 
FROGRAMM NACH BEENDIGUNG ZUR 
VERFUEGLUNG:« 

FZ -EVENTUELLE FEHLERNUMMER 
FB#-FEHLERBEZEICHNUNG 

FF -TRACKNUMMER DES FEHLERS 
FS -SEKTORNUMMER DES FEHLERS 


 SY543115 NAF,B,1 
POKE2024 ,PEEK (10) 
FOKE2035 ,FEEK (45) 
POKE2036 „PEEK (44) 


KüdAdo 
O0SO 
soo7o 
S0020 


weiter nächste Seite 


GCompube mib 


REM *** LOAD-FARAMETER SETZEN #%# 
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—,s& tricks 


REM #*# LOAD-ROUTINE AUFRUFEN #9# 


60200 : 


SO09o 

sulon = 60210 REM IN DIESER ZEILE MUSS “RETURN 
606110 5Y5454953 60220 REM STEHEN, WENN SIE DAS PROGRAMM 
söl2o : 60230 REM ALS UNTERROUTINE VERWENDEN ! 
50130 : od s 

80140 REM »*# FEHLERKANAL AUSLESEN ##*| 50250 : 

60150 2 60250 REM FÜUER DATASSETTENBETRIEB SIND 
60150 OFEN1,8B,15 60270 REM FOLGENDE AENDERUNGEN NDOETIG: 
&0170 INFUT#1,FZ,FRB&,FT,FS 50280 REM - 50020 5Y543115 NA#,1,„1 
s0olBo CLDSEI 50290 REM — DIE FEHLERKANALABFRAGE (AB 
50190 : 603600 REM ZEILE &0140) WEBGLASSEN ! 











VC20-Besitzer 1! AUFGEPASST 





„Compute mit“ veröffentlicht wieder nützliche 7498 & TRICKS zum richtigen Umgang mit 
Ihrem Homecomputer. 


?CHRS (147) 


JPEEK {202) 


SYS6A818 
| u BILDSCHIRM LOESCHEN CURSORSPALTE 
SYS64821 ?PEEK (214) 
POKE 198,0:WAIT 198,1 WARTET BIS TASTE GEDRÜCKT | COURSORZEILE j 
WIRD. ?PEEK (43) + PEEK (44) *256 ZEIGER FÜR BEGINN VON BASIC 
POKE 818,34:POKE819,253: SAVEN GEHT NICHT ?PEEK (45) + PEEK (46) *256 ZEIGER FÜR BEGINN VN | 
POKE 37150,2 | VARIABLEN 
POKE 37877,X CURSOR-GESCHWINDIGKEIT | ?PEEK (51) + PEEK (52) *256 ZEIGER FÜR STRINGS 
POKE 818,0:POKE 817,0  LOADSCHUTZ 2PEEK (47) + PEEK (48) *256 ZEIGER FÜR BEGINN VON 
POKE 775,200:POKE 775,0 LISTSCHUTZ Ans 
POKE 37150,2:POKE 788,192 RUN-STOP RESTORE AUS ?PEEK (57) + PEEK (50) "256 en DAS ENDE 
PORE BOADPOKE GOSa INPUTUNMERLE | per (55) + PEEK (58) *256 ZEIGER FÜR DIE MOMEN- 
POKE 794,0:POKE 795,0 OPENBEFEHL UNMÖGLICH |" TANE ZEILENNUMMER 1 
LE KLEINSCHAIFT UNMÜGLICH | gpgcK (a3) + PEEK (56) "256 ZEIGEN FÜR DIE GRENZE | 
POKE 657,0 WIEDER NORMAL DES SPEICHERS 
POKE 650,128 DAS DRÜCKEN EINER TASTE | 9PEEK (648) ZEIGER FÜR DIE BILDSCHIRMPAGE 
WIRD STÄNDIG WIEDERHOLT 
POKE 36869,242 POKE 36869,240 POKE 774,0 PETER EIER DER OFFENEN DATEIEN 
| KLEINSCHRIFT GROSSSCHAIFT LISTET ZEILEN PPEEK (182) ZEIGER FÜR LOADFEHLER | 
POKE37148.251 POKE37148.282 POKE 631,131:POKE 198,1 WARTET BIS PLAY GEDRÜCKT WIRD 


DATASETTENMOTOR AUS DATASETFENMOTOR EIN POKE 642,x VERAENDERT DIE SCHRIFT FARBIG 


Da Besitzer einer Speichererweiterung nicht irnmer alle Programme spielen können die ohne Erweiterung veröffentlicht wurden, gibt | 
es einen Trick um dieses Hindernis umgehen zu können. Mit Hilfe der beiden folgenden Befehle “ 

POKE 648,30:SYS64822 POKE 4096,0:POKE44,16:NEW 
kann man die Grundversion des Rechners simulieren und so auch diese Programme auf dem VC-20 funktionstüchtig machen. 
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programme 


Dangerous Planet 





AA Dr NENTTEIE JE 















Die General-Cosmis-Company gab Captain Fusoia den 
Auftrag, auf dem Planeten Beta-Albireo IX die dort vor- 
kommenden A-9 Kristalle für die Förderation zu ber- 
gen. Die auf dem Planeten lebenden Wesen wollen Sie 
jedoch an der Bergung dieser A-9 Kristalle hindern und 
machen Ihnen den Flug in ihrem kleinen Bergungsschiff 
zur Qual. 

Da der Frachtraum Ihres Bergungsschiffes äußerst klein ist, 
müssen Sie nach der Aufnahme eines Kristalles zu Ihrem I, 
Raumschiff zurückfliegen und dort Ihre wertvolle Fracht wieder < ns 
abladen. 
Anschließend beginnt ein erneuter gefährlicher Flug mit dem Raum- > 
gleiter auf die Oberfläche des Planeten. © 


O ELR=FRINT"Q":B=36876: POKEB+2, 15: FOKES2 ‚28: POKES6 ‚28: POKEB+3,8 4 

1 FORT=7424107431: POKET „OzNEXT: FORT=0TD191: READA: POKE7169+T ,A:NEXT 

2 DATA255,255,255,255, 255,255, 255,255,255,126,124,60,56,24,24,16,63,31,7,7,31,4, 
1,,0,64 

3 DATAS&8,100,108,126,126,255,2,18,25,55,63, 255, 255,255, ,1,4,13,31,15,31,63,255,6 
z 

4 DATA31,63,255,207,15,25,255,127,127,127,51,51,33,1,,13,1,36,44,119,127,255, ,64, 
68,228 
& DATA230,246,255,255,255,254,242,248, 252,156, 200, 128,98, 247 ,255,255,255,255,255 
„255 

7 DATA255,7,12,24,49,76,96,240,1972,224,48,24,12,6,6,15,1,3,7,63,63,63,127,255,12 
8,192 

8 DATA240,252,252,252,254,255,32,32,124,255,255,255,255,255,24,36,70,189,129,126 
36,66 

7 DATA, ,15,60,126,165,255,126,255,255,295,255,153,153,153,153, ,,3,12,16,16,32,12 
7,,,192 

1C DATA49,8,9,4,254,102,153,153,153,129,129,66,0,56,118,214,253,167,250,86,56,4, 
1,14,7 

it DATAS,18,15,21,17 

40 FRINTEHRS (142) CHR$ (8) » POKEB-9 „40: FOKEB-12,10: POKEB-10,153 
45 B#="KENNEN SIE DIE SPIEL-":C$="REGELN tJ/N) 7": D$=" RERDINTHTMETSENTFTRIKTRTRTETETNN 
50 PRINT'B"TAB(BDI"E . "SPRINTTABOSCE LOL Li 
zZ 1 [3 Fi 1 NT Fr Kr Fr Fi ‚ ei 1 u 3 
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programme 


2 FRINT’E wa au wu m|: m"; 
33 FRINT’E RE DES RE IK HK EG ESG “7 
=4 FRINTE EU EG te “; 
3 FRINT'S wa ur re Ge Be "7 
>68 FRINT’E RI GE IS HD BER EDEL | "5 
7 FRINT’R 50 ! 5 is lung Su ur Su Be "a 
SB FRINT’E B- Bi 1 wg m": FORT=070479: NEXT: FPOKEB+2,B E 
&5 FORT=1T09:READA: FOKE77&1+T, A: FORN=2SSTOZ3ZOSTER-1: FOKER , N:SNEXT3 NEXT: FOKEB, — 


70 FORT=15TBOSTEF-. 04: FOKERB+2,T:FOKEEB+1,150:NEXT:FOKERB+1, 0: FOKEB+2,5 

71 FRINT"aRR" ; : FORT=1T021 

72 FRINTDFZRIGHTE(B#,T}: FOKEB-2, 255-1: NEXT 

75 FORT=1T013: PRINTDF"RRN ";RIGHT#(CH,T}J 

75 FOKEB-2Z,255-T:NEXT 

57 FOKEB-2,0:FOKE198,0 

70 GETAF: IFAF=""THENFO 

71 IFAr="J"THENISO 

72 IFASS "N" THENFO 

100 FRINT"R"ECHRE& (14) : FOKEB-10, 150: POKEB-12, 12: FOKEB-9 „46: POKEB-11,154: W=O 

101 FRINT"IRE -ANGBERDUS TLÄNET IE Wi 

102 FRINT"#IE WURDEN VON DER IENERAL -OSMIC -DMPANYDAZU BEAUFTRAGT AUF" 

105 FRINT"DEM "LANETEN |ETA #4 - BIREO -X DIE DORT VOR-KOMMENDEN 49--RISTALLEZU B 
ERGEN." ; 

104 FRINT"#OFORT NACH „HRER #- KUNFT VERLASSEN #IE „HA GCHIFF MIT EINEM" 
105 PRINT’FELEINEN [ERGUNGSBOOT. WAMMELN PIE DAMIT ALLE-RISTALLE EIN." 

104 FRINT".EHMEN #IE SICH ABER VOR DEN DORT LEBENDEN cESEN IN CHT. ":605UB200 


107 FRINT"LA DER -RACHTRAUM „HRES jODTES SEHR KLEIN IST, IST ES NOT-"3 
168 FRINT"WENDIG,DASS WIE SDFORTNACH DEM #UFNEHMEN EINES +RISTALLS WIEDER": 
109 FRINT"ZU -HREM “CHIFF FLIE- GEN,UM DORT ABZULADEN. " 

i10 FRINT"BPTEUERUNG: BC BT me + RR" 

11 PRINT nTEDERHOLEN DER _EGELN {0 
}} 2 

112 FRINT"WFIEL STARTEN {9 "zW=1:60SUB200: FOKE19B,0 


114 GETA$: IFAF=""THEN114 

115 IFAF="W"THENI1OO 

115 IFA >"S"THEN114 

150 FOKEB-12,125POKER-10, 150: POKEB-9, 454: FOKE198,0 

135 PRINT"LEINEN PIOMENT „EOMFUTER LAEDT HAUPTPROGRAMM"CHRS (142) 

180 FOEKESE1,„131: POKE198,3: END 

=z00 PRINTTAB (30) "gi 4#} ae 

=02 FÜORT=154T038STEF-B: FÜKEB+1 „2358: POKEB-11, TePOKEB+1 ,0: FORG=1T020: NEXT=:NEXT 
205 IFW=1THENRETURN 

204 FOFE19B,0:WAIT19B,1:POKEB-11,154:RETURN 





=O . 

FR=0THENF=0: IFF>HTHENH=SF 

2 B=5:6=36977:DATA2,5,3,8,1,6,4:F=4 

5 FOKEG+2,8: PRINT" EHRF (8) : FOKEB-8 , 255: POKEG+1 ,15:M=7 736: A$="FERTIG 7":RESTORE 
4 FORT=1T07:READA:FRINT "EIERN" TAB CAIMIDEIAF,A,2) : FORC=230T0255: POKEG-3,CHNEXT 
=NEXT 

5 FOKEG-3,0:FOKE198,0:WAIT198,1:A$="[ITk TU IRERNSSORERREE FE 

& FRINT"Üa"SFC (21)  DIERIDSIIGNIHD" ; \ 

7 FRINTSFEC (15) "CDKIHKE"SFC {14) "HEGESBER" : 

8 FRINTSPC (12) "Dkeeesseese DIDIIHIHK@G@B@ERAE& r 

9 FRINT"]] BeeB2aaereaseRBaaae beeeBBgeRReaeaaee FJ/BGee@taggERaae 

=23 PRINT"DE"SPE IB) "AFeeaaeaageeaa] "öft (7) "GEBgaRssgaaal "SPC 110} "AFreaeasee 

24 FRINT"LU"SPE (12) "Ee@geaeakea"GpPG (14) "AGeRagaea 

25 FRINT"D"SPC (16) "Beaseeae"SPCc (1 7)" GeESBaCc”"SPEt15)"DIGERE 

2& PRINT"D@I"SPL (14) "Geeeseeen E Dea@@@aaBaarfFFPeEFFPPFFPeBBEER" 


OF 
11 
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programme 


POKEB185 ‚0: POKES8905, 0: FOKEB+2, 104: FORT=38899 T038887STEP-1:POKET 13: NEXT 
PRINTTAB {17} A$: A$="": D=30720: POKE7579 , 5: POKE38721 „O0: DEFFNA(I)=INT(RND(1)*T) 
FOKEM+D „33 E=0: P=P--10: J=1:8=0: PRINT"B"TAB (234) "Mialg: "Bez BOTO200 
IFM=ETHENSOO 
Z=PEEK (197) : IFZ=24THENN=22: BOTO40 
IFZ=9ANDM>7701 THENN=-22: GOTO4O 
IFZ=17THENN=-1: GDTO40 
IFZ=18THENN=i 
IFPEEK {M+N) <32ORN=O0THENAO 
M=M+N: POKEN-N, 32: POKEN+D, 33 IFPEEK (M+22) =16THENA& 
IFM=77&STHEN200 
N=0: 6OT060 
IFJ=1THEN4S 
POKEB , 255: POKEM+D+22,0: PDKEM+22, 11: N=0: J=1:8=5+1:POKEB,O 
POKEM, 17: ONFGOTO70,77,80,70,100,110,120,88 
F=FNA(TI+1:60T033. 
IFE< >OTHEN72 
E=7&80+ (M- (76B0+1NT { (M-7680) 7/22) #272) ) 
E=E+22: POKEE+D,5:POKEE ‚23: PDKEE-22 , 32: POKEG-1 ‚223: POKEG-1,0 
IFE=MTHENS00 
IFPEEK (E+22) <17THEN9& 
GOTO3Z 
IFE>OTHEN?2 
E=7674:601072 
IFETHENB2 
E=BOS2+FNA (3) #222 U=12 V=FNA(I0) +3 
IFY=OTHENB8 - 
E=E+L: POKEB ‚250: POKEE-U, 32: POKEE+D, 1: POKEE , 18: POKEG,0: Y=Y-1: 
IFE=YTHEN96 
IFPEEK (E+U)<17THENG? 
501033 
U=-Li: GOTOZ3 
F=8: IFPEEK (E+22) < 17THENF& | 
E=E+22: POKES, 250: POKEE-22,32: POKEE+D, 1: POKEE , 18: POKEG, 0: B0T033 
IFE>OTHENI2 
E=7477-FNA (5) 1 U=21 
POKEG-2, 2403 E=£+U): POKEE-U, 32: POKEE „22: POKEE+D 5: POKEG-2,0 
IFPEEK (E+U) < 17THENIT 
IFE<T&BOTHENS& 
E0TOSS 
POKEE „32: E=0:F=0 
L=-23: GOTOSS 
IFE>OTHEN1O2 
E=7&574FNA (5): U=46 
FOKEG-3 ‚245: E=E+U: POKEE-U, 32: POKEE ‚22: POKEE+D,5:POKEB-3,0 
IFPEEK (E+46) <17THEN107 
IFE<T7&BOTHENF& 
GOTOSZ 
42: BOTO33 
IFE>OTHENI112 
=7&6B0+INT ( (M-7680) 722) #22: IFE>792Z2THEN117 
IFE=MTHENSOO0 
E=E+1:POKEB, 130: POKEE-1 ,32: POKEE+D, 10:POKEE , 18: POKEB, 0 
IFE+1=MTHEN11B 
IFPEEK (E+1) <S2THENF& 
60T033 
E=0: F=0:60T033 
POKEE „32: GOTOSOO0 
IFE>OTHENI22 . . 
E=8054:U=2:6010129 weiter Seite 34 
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software-service 





| Die Software im TRONIC-VERLAG wird ständig durch Spitzenprogramme füralle beliebten Ho- 
mecomputer-Systeme erweitert. Hier können Sie zu günstigen Preisen Spannung und Freude | 
am Computer erleben. 


Nutzen Sie unseren Bestell-Service und Sie erhalten innerhalb nur 


iWoche 


| Ihre Lieferung. Trennen Sie einfach die beiliegende Bestellkarte ab und senden Sie EL. ein. 
Natürlich besteht auch die Möglichkeit telefonisch zu bestellen unter der Nummer 


056 51/406 43 ...40693 


Heft 5/85 


Commedore 
Bestell-Nr. COM 6 1/1 
Bestell-Nr. COM BD 1/1 


| Schneider 
Bestell-Nr. COM S 1/1 


Heft 8/85 


Commodore 
Bestell-Nr. COM CK 4/1 
Bestell-Nr. COM CD 4/1 


Schneider 
Bestell-Nr. COM SK 4/1 
Bestell-Nr. COM SD 4/1 


Rus diesem Heft: 


| Commodore 
Bestell-Nr. COM CK 7/1 
Bestell-Nr. COM CD 7/1 


Schneider 
ı Bestell-Nr. COM 5K 7/1 
Bestell-Nr. COM SD 7/1 


16,- DM 
20,- DM 


16,- DM 


16,- DM 
20,- DM 


16,- DM 
39,- DM 


16,- DM 
20,- DM 


16,- BM 


39,- BM 


Heft 6/85 


Commodore 
Bestell-Nr. GOM G 2/1 
Bestell-Nr. GOM D 2/1 


Schneider 
Bestell-Nr. COM S 2/1 


16,- DM 
20,- DM 


16,- DM 


Heft 9/85 


Commodore 
Bestell-Nr. EOM CK 5/1 16,- DM 
Bestell-Nr. COM CD 5/1 20,- DM 


Schneider 
Bestell-Nr. COM SK 5/1 16,- DM 
Bestell-Nr. COM SD 5/1 38,- DM 


Heft 7/85 


Commodore 
Bestell-Nr. GOM CK 3/1 16,- DM | 
Bestell-Nr. COM CD 3/1 20,- DM 


Schneider | 
Bestell-Nr. COM SK 3/1 16,- DM 
Bestell-Nr. COM SD 3/1 39,- DM 


Heft 10/85 


Commedore 

Bestell-Nr. COM CK 6/1 16,- DM 
Bestell-Nr. COM CD 6/1 20,- DM 
Schneider 

Bestell-Nr. GOM SK 6/1 16,- DM 
Bestell-Nr. COM SD 6/i 39,- DM 





Alle Programme aus den Zeitschriften 5/85 bis 10/85 sindnoch erhältlich und können jederzeit 
| nachbestellt werden. Bei Bestellungen ohne Bestellcoupon erhöht sich der Einzelpreis für die 
ı Kassette auf 24,50 DM, für die Commodore-Diskette auf 29, 50 DM und für die Ze 


| kette auf 44,90 DM. 
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Schneider GPG-464 


Autorennen, Kasseite 11,- DM, Bestell-Nr. US 


3/85 

Universal-Datei V1, Kassette 9,- DM, Bestell- 
Nr. US 4/85 

Computerschrift/Symbol- Swan, 

Kassette 10,- DM, Bestell-Nr. US 5/85 
Keyboard Toolkit/Farbdecodierung, Kassette 
11,- DM, Bestell-Nr. US 6.1785 

Aladin, Kassette 9,- DM, Bestell-Nr. US 6.2785 
Painter/Box-Befehl, Kassette 14,- DM, Dis- 
kette 24,- DM, Bestell-Nr. US 7/85 
Maschinensprache-Monitor/Disk-Hilfe, Kas- 
seite 15,- DM, Diskette 25,- DM, Bestell-Nr. 
US 8/85 

Basic, Maschinen-Kit, Kassette 12,- DM, Dis- 
kette 22,- DM, Bestell-Nr. US 9/85 
Fallschirmspringer, Kassette 9,- DM, Bestell- 
Nr. HG/SR-3 

Geisterschloß, Kassette 9,- DM, Bestell-Nr. 
HC/SR-4 

Zeichendesigner, Kassette 12,50 DM, Bestell- 
Nr. HG/SR-5 

Mini Car Race/tnterceptor 3 D, Kassette 17,50 
DM, Diskette 26,50 DM, Bestell-Nr. HG/SR-6 
Super-Miner, Kassette 14,- DM, Bestell-Nr. 
SR 42 


GPC-Bert, Kassette 14,- DM, Bestell-Nr. SR 
52 


Conan’s Castle, Kassette 15,50 DM, Bestell- 


Nr. 5R 62 


VC-20 


Bestellschein/Glücky, Kassette 8,50 DM, Dis- 
kette 15,- DM, Bestell-Nr. V 61 
Multigraph/All Rammer, Kassette 11,-DM, 
Diskette 15,50 DM, Bestell-Nr. V 71 . 
Zykio/Meteorit, Kassette 11,- DM, Diskette 
19,50 DM, Bestell-Nr. V 81 

Garten/Schloß Gruselstein, Kassette 14,-DM, 
Diskette 19,50 DM, Bestell-Nr V 91 
Fressman/Outlaw, Kassette 14,- DM, Diskette 
19,50 DM, Bestell-Nr. V 101 

Prost/Buffalo Bill, Kassette 14,- DM, Diskette 
19,50 DM, Bestell-Nr. V 121 

Joy Man/Powerpack, Kassette 14,- DM, Dis- 
kette 19,50 DM, Bestell-Nr. V 22 


Der rasende Malocher/Frarkie goes To Pha- 
rao, Kassette 14,- DM, Diskette 19,50 DM, 
Bestell-Nr. V 32 
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Matron/Übst, Kassette 14,- DM, Diskette 
19,50 DM, Bestell-Nr. Y 42 


Race On/Cagy, Kassette 14,- DM, Diskette 
19,50 DM, Bestell-Nr, V 52 


Nürburg 3D/Düsi, Kassette 14,- DM, Diskette 
19,50 DM, Bestell-Nr. V 62 


Zyklo/Geldsamrnler, Kassette 11,50 DM, Be- 
stell-Nr. HEY-1 


Star-Wars/Punktefresser, Kassette 14,50 DM, 
Bestell-Nr. HE/V-2 


Catch the Fish/Mister Jump, Kassette 14,50 
DM, Bestell-Nr. HG/V-3 


Ghost’s Eggs/Fox Hunt, Kassette 14,50 DM, 
Bestell-Nr. HG/V-4 


Collector/Break Out, Kassette 14, 50 DM, Be- 
stell-Nr. HO/V-5 


Q-Bert/Salvage Crew, Kassette 16,50 DM, Be- 
stell-Nr. HG/V-6 


Sprites/Space- „Battle, Kassette 13,- DM, Dis- 
kette 19,- DM, Bestell-Nr. UV 2/85 


Grafik-Painter, Kassette 10,- DM, Bestell-Nr. 
UV 5/85 


VIC-Clock, Kassette 9,- DM, Bestell-Nr. 
UV 6/85 


Decelerator, Kassette 9- DM, Bestell-Nr. 
UV 7/85 


Joypaint, Kassette 12,- DM, Besteil-Nr. 
UV 8/85 


Disassembler, Old-Programme. Kassette 10,- 
DM, Bestell-Nr. 985 


Commodore 64 


Mauern/Widerstand, Kassette 8,- DM, Disket- 
te 15,- DM, Bestell-Nr. G 41 


Space-Comets/Erdspalte/Sprite-Data, Kas- 
sette 15,-- DM, Diskette 23,50 DM, Bestell-Nr. 
651 


Autostart/Bestellschein/Roadpainter, Kasset- 
te 16,50 DM, Diskette 23,50 DM, Bestell-Nr. 
5 61 


Hardcopy/Space- Fighter/Data- Generator, 
Kassette 15,50 DM, Diskette 19,50 DM, Be- 
stell-Nr. G 71 


Monster-Attack’Block-Painter/Epson-Druk- 
ker, Kassette 16,50 DM, Diskette 23,50 DM, 
Bestelt-Nr. C 81 


Projekt/Datenbank, Kassette 16,- DM, Disket- 
te 23,50 DM, Bestell-Nr. C 91 


Spiders/The Basic, Kassette 16,50, Diskette 
23,50 DM, Bestell-Nr. G 101 
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High Noon/Skeet/Grafik-Designer, Kas- 
sette 17,50 DM, Disketie 23,50 DM, Bau 
Nr. 6 121 


Painter/Star-Baddle/Editoer, Kassette 17,50 
DM, Diskette 23,50 DM, Bestell-Nr. C 22 


Wüstenraliy/Jet-Pac/Black Moore Castle, 
Kassette 17,50 DM, Diskette 23,50 DM, Be- 
stell-Nr. © 32 


Brieftaube/Cadelon, Kassette 19,50 DM, Dis- 
kette 24,50 DM, Bestell-Nr. G 42 


Ritter Erik/Grand Prix Spritehilfe, Kassette 
19,50 DM, Diskette 24,50 DM, Bestell-Nr. C 
52 


Firebird/High Music, Kassette 24,50 DM, Dis- 
kette 29,50 DM, Bestell-Nr. G 62 


Multi-Key/S-Tool 64/Interrupt-Programme, 
Kassette 16,- DM, Diskette 21,- DM, Bestell- 
Nr. UCG 2/85 


Spritehilfe/Diskloader/Directory, 
21,- DM, Bestell-Nr. UG 3.1785 


Tape-Directory/Asmon/Data-Generator, Kas- 
sette 15,- DM, Diskette 21,- DM, Bestell-Nr. 
UC 3.2/85 


Fast Load, Kassette 10,- DM, Bestell-Nr. UC 4/ 
84 


Diskmonitor/Zeichensatz, Diskette 20,-DM, 
Bestell-Nr. UC 5/85 


Reassembier/Maskengenerator Kassette 15,- 
DM, Diskette 20,- DM, Bestell-Nr. UC 6/85 


Dei 64/Treiberprogramm für 1526/MPS 802 
Decelevator, Kassette 14,- DM, Diskette 19,- 
DM, Bestell-Nr. UC 7/85 


Supertapedirectory/Renew/Kontrellabfrage, 
Kassette 15,- DM, Bestell-Nr, UC 8/85 


Video-Utilities, Multi-Basic V3, Bildeditor, 
Kassette 17,- DM, Diskette 23,- DM, Bestell- 
Nr. UG 9/85 


Reacter/Concentration/Datenbank, Kassette 
17,50. DM, Diskette 23,50 DM, Bestell-Nr. HG/ 
C-1 

Warlords/Gaverns of Death, Kassette 14,50 
DM, Diskette 19,50 DM, Bestell-Nr. HC/C-2 


Alien-Destroyer/Duell, Kassette 24,50 DM, 
Diskette 29,50 DM, Bestell-Nr. HC/C-3 


Ocean Game/Tennis, Kassette 17,50 DM, Dis- 
kette 23,50 DM, Bestell- Nr. HG/C-4 . 


The Caves, Kassette 1750 DM, Diskette 
23,50 DM, Bestell-Nr. HCIC- 5 


Gardener, Kassette 17,50 DM, Disketie 23,50 
DM, Bestell-Nr. HG/C-6 


Diskette 
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22 ONFNA{4)+160170123,124,125,1726 


125 U=1.9:68T0177 
124 U=-1.3:60T0127- 
125 U=22:G0T0127 
125 U=-44 


127. IFFEEKtE+UN) <S170DREX 77OZTHENFA 
129 E=E+U: FOKEG-1,247: POKEE+D, 15: FOKEE , 17: FÜOKEE- U, 32: POKEG-1 „0: 501033 


200 IFJ=OTHENGO 


=01 POKEG-1 „247: N=0: J=0: P=F+10= PRINT"B"TAR (229) "sPUNKTE: "Fz POKEG-1,0 


202 IFS<C1IZTHENGO 


=203 FRINT"B"TABLATI "IASBONUSSHUTTLE 


204 B=B+1: P=P+B%*3: 6G0SUB550 


205 FORT=1T011: FORC=255T0255-T#5STEP-1: POKEG-2,C: FOKEB-2,,O:NEXT:NEXT:GOTO2 
500 FOKEM+D,10: FORT=6T025: L=FNA (309): FOKEM, 170: POKEG , 254-L: POKEG, O0: FOKEM,Z14: NEXT 
501 J=0:E=0: POKEM, 32:M=7763: FÜKEM+D, 3: B=B-1: FRINT "BI" TAB (234) "afepnnldl: "B 


s02 IFS=S12THEN204 
503 IFB>ÖOTHENSS3 


505 GOSUBSS0: FRINT"B"TAB (70) "ISSAME DVER" 


KEG-1,C 


; B=0: FORT=255T01705STEF-1: FORC=T-PTOT:PO 


505 NEXT=NEXT:FOkREG-1,0: FÜREG+Z , 8: FORT=8157 T08179: POKET „32:3 NEXT 
307 PRINT'BEREREREINDCH EINMAL (J/N)?"- POKEI198,0 


508 GETA$: IFA$=""THENSOB 
509 IFAS="N"THENS11 

510 GOTO1 

511 SYSs32T4 

550 IFF>HTHENH=PF 


551 FRINT"BIHIGSHSEDRE: '"H: RETURN 





Der Kampfroboter ZAKKON bedroht die Erde. Dringen Sie in das von ihm besetzte 
Gebiet und vernichten Sie ihn und seine Armee. 





Das Programm besteht aus insgesamt 
zwei Teilen. Nachdem Sie den 1. Pro- 
grammteil eingeladen haben erscheint die 
Erklärung des Spieles. Danach wird der 2. 
Programmieil automatisch nachgeladen. 
Im 2. Teil erscheint zunächst der Highsco- 
re und dann die Aufforderung „Press any 
key to start“. Wird diese Anweisung be- 
folgt, baut sich der Bildschirm auf. Im obe- 
ren Teil des Bildschirms erscheinen die 
Anzeigen „Punkte“, „Leben“ und „Muni- 
tion“ . Im unteren Teil ist das eigentliche 
Spielfeld. Sie können nun Ihr Raumschiff 
nach rechts und links bewegen und die 
angreifenden Feinde abschießen. Für je- 
den Schuß den Sie verbrauchen, müssen 
Sie auf die Anzeige „Muniton“ achten. Sie 
können jederzeit Ihre Muniton erhöhen, 
wenn Sie die Aufschrift „Mun .. "treffen. 
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Istes Ihnen gelungen eine bestimmte An- 
zahl von Feinden zu treffen erscheint ZAX- 
XON im Zick-Zack-Kurs und greift Sie an. 
Dieser fast unverwundbare Roboter kann 
von Ihnen nur zerstört werden, wenn Sie 
seine einzig verwundbare Stelle, das linke 
Bein, treffen. Achten Sie jedoch darauf, 
das Sie ZAXXON mindestens 10 mal an 
seinem Bein getroffen haben. Treffen Sie 
ihn nicht an seiner verwundbaren Stelle, 
verlieren Sie ein Leben und müssen das 
Spiel von vorn beginnen. Erreichen Sie 
den nächsten Level müssen $ie mehr 
Feinde in noch kürzerer Zeit vernichten. 


Nun aber genug der 
langen Erklärung und 
ran an den Joystick. 
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Programmteil: 1 


OKESZ „78: FOKES&,28 


7 G=36845 
FÜRT=1TO040B: READA: FDKE7157+T „AsNEXT:6DTD1S0 


140 
142 
144 
150 


DATA1,2,4,8,18,32,64,255 

REM* STARFIGHTER * 
DATA1,10,12,28,28,54,78,227 
DATASS,54,62,62,99,93,221,221 
DATA1,2,4,8,16,32,192,255 
DATA1,35,7,11,23,47,75,255 

DATAZZ1 „221 ,221,221,221,221,227,255 
DATA193,194,228,232,240,248,252,255 


. DATA29,10,28,62,127,37,64,255 


DATAS,130,65,34,20,248,68,255 

REM * PFAHL * 
DATA&3,67,253,133,133,133,133,133 
DATA133,133,133,133,133,133,133,133 
DATA133,1332,254,8,16,32,64,255 

REM * STRAHL * 
DATA1,2,4,42,85,16B,63,255 

REM * ZYLINDER * 


REM«SCHUSS* 98 DATAAZ,64,128,128,128,128,64,255 
DATA1,2,172,8,24,40,92,255 100 DATA2S55,0,0,0,0,0,0,255 

REM * EXPLOSION # 101 DATAO,0,0,0,0,0,0,0 
DATA3,7,15,15,25,63,94,255 102 DATA249,38,66,66,56,66,36,255 


DATA126 , 252,731 ,255,255,255,62,255 
DATA193,114,252,200,254,191,79,255 
DATAA1,126,124,110,62,63,127,255 
DATA31 ,30,124,118,62,124,254,223 


104 
105 
105 
108 


REM * ROBOTER * 
DATAO,0,0,0,0,0,0,0 
DATA1,2,4,8,16,32,67,252 
DATA1,2,4,8,16,32,255,1 


REM * WUERFEL * 110 DATA15,16,23,18,16,49,82,254 
DATA1,2,4,15,24,48,96,192 112 DATA251,5,117,37,5,198,36,63 
DATA1,2,4,248,24,,40, 72,19% 114 DATA1,2,4,8,16,32,112,255 
DATA255,129,129,129,129,129,129,255 11& DaTA1,3,12,15,53,85,149,16 
DATA9,10,17,24,48,96,192,255 118 DATAB1,98,28,6,37,86,37,4 


REM #* MUNITION « 120 DATA1,2,4,8,16,160,64,191 
DATA15,16,32,64,96,80,79,192 122 DATA12,12,95,56,16,32,64,255 
DATA225,18,12,4,12,20,228,7 124 DATASO,B1,148,18,31,48,95,240 


DATAB4,73,85,85,65,32,80,255 
DATAZ1,74,84,84,196,8,16,255 
REM # ZELT * 
DATA1,2,4,8,16,32,65,254 
DATA1,2,4,8,80,160,16,15 
DATAS,8,16,32,64,255,64,255 


124 
128 
130 
152 
134 
136 
1358 


DATAS&,70,149,7,253,7,253,5 
DATAB1,42,44,40,232,176,16,255 
DATA16,17,30,18,30,50,.82,242 
DATA133,199,189,165,189,165,165,229 
DATA18,19,30,34,71,251,141,255 
DATA155,167,189,197,142,244 ,24,255 
REM ROUTINE HOCH 


FORT=153T0O38STEF-1:POKES,T:FORB=1T010: NEXTR,T=RETURN 

REM ROUTINE RUNTER 

FORT=38T0153: FOKEG,T: FORQ=1TO10O:NEXTO,T=: RETURN 

FOKEG+4 „240: GOSUB144: LI $=" nn FRINTUL"LIS:PRINT"IRBERBRR] 


152 PRINT'ERBEBBI > 7. 


154 
155 
158 
150 
TEN 
182 
170 
172 
174 
i75 
178 
180 
182 
183 
184 
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PRINT"ERRBBEI 5." 


PRINT"pBiB] — —— —— " 

PRINT" ZAXXDNK" = PRINTLIS 

PRINT" WRITER: 5 HOLGER UNTERHALTE" = FRINTLIS:PRINT"ERRRERINRIT 
BY" 

FRINT"EBBBERKOBBLE GAMES ":FPRINTLIE 


GOSUB140: POKE19B,0: WAIT19B,1:50SUB144 
PRINT"WN"TLIS:PRINT"OR#aee | "T-alT RSer"LIFSPRINT’B-U BIST DER TILDT" 
PRINT"BEINES —LIEGERS UND BIST GESCHICKT WORDEN „DEN -AMPFROBOTER" 
FRINT"B#AXXDN ZU VERNICHTEN. " 

FRINT"E-U MUSST -EINE -EINDE ABWEHREN „OHNE MIT IHNEN ZU KOLLIDIEREN." 
FRINT"BICENN -U GENUG N- GREIFER INS 'ENSEITS BEFOERDERT HAST MUSST" 
FRINT"TRFU #AXXON MEHERE "ALE AN SEINER VERWELND- BAREN #TELLE TREFFEN." 
SDSUB140: POKE198,0:WAIT17B,1:G0OSUB144 


PRINT" GENN —U IHN TRIFFST, ABER SEINE VERWUND- BARE WTELLE VERFEHLST BI 
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ST U"; 
186 PRINT"TOT. *sPRINT”RIGENN —U 4AXXON ZER- STOERT HAST,MUSST -U GEGEN EIN NEU 
ES IEER" 

188 FRINT" KAEMPFEN. "sPRINT" | IPs=IE VERWUNDBARE  WTELLE IST SEIN LINKES 
EIN. 


187 FRINT"E . FOCHMAL? WW }":5GODSUB140 

190 POKE178,0:WAIT198,1: IFPEEK {1979 =2Ö THENPRINT"E*:60T0150 
191 IFPEEK (197) =ZBTHENPOKESS1 „131: POKE19B,12END 

172 S0OTO1YFO 


Programmteil: 2 


1 DIMH$ (20) cH$ (0) ="E" 2 FORT=1T020: H£ {T)=HS(T-1) +" SNEXTT 

5 Ar="ARBBCBEEIDEFKERIE" : F$ (2) ="NOREBPOR" :F$ (1) =" REKMRITU" SCI) =" VWRREIRY"  E6=" LIKE 
LIEB" 

7 WES=" CORIRISCKBABITCEELEMENSTCSSIKEERITERIRIEE " 

10 F$ (4) =" GEB"! "2 Z6=" HS EB SCEARN" CORE , — . ERREL/ OHREN 2" : 16 =" ARHRSOLERRISSEREN 


20 A=36B59: FOKEA+I, 19: FOKEA „240: POKEA+10 ,B: LOS BREI ER" : =" ARaRERENEE" = PU=O 
2 LIE EEEREOEIIHEHHRHH" : PRINT"ÜBU" LIE’ * GBED-ZAKXON ###"LIF:PFOKEA+B, 
OÖ: POKEA+&,0 

23 FRINT"HIGHSCORE: "HI 

=& FRINT"EFRESS ANY KEY TO START"SFOKEL9B,0:WAIT19B,1: LE=3: FH=5s: BI=14: T%=10: FH=5 
28 PRINT"LRFPUNKTE: "PU: FRINT"BWLEBEN: "LE: PRINT rPOKENA, 255 
27 J=0: Y=0: TR=0:V0=0:FA=0 

so FORT=7745T08185: FOKET „ÜrPOKET+30720,1:NEXTT 

52 H=18: 1=9: PRINTH$ (H) TAB ( DD AFH+FOKEA+B, 250: MU=15- PRINT "ERERERREhRRRhENLN. : 15":P 
=37151 . 

s& IF-t{PEEK (F)ANDS2I=O)=1THENAO 

38 IF-((PEEK<P)IÄAND15) =0) =1 THENSO 

40 PDKEF+3,127: IF- U(PEEK(P+1) ANDIZBI =0) = ITHENSS 

45 IFJ=OTHEN7O 

45 VO=VO+1: IFVO=EITHENBO 

47 GOTOS& 

sO IFI=S1THENAS 

52 I=I-1:FRINTH& CHI TABCI+1) L#: FRINTH$ CH} TAB{TDP AS: 507045 

55 IFI=SZOTHENIS 

57 I= =1+1:PRINTHS CH) TABCI-LILS:PRINTH& CH) TAB CD) AS: POKEP+3 , 255: GOTOAS 

609 MU=MU-1:ME=-5STRF IM) +" "EFRINTBIIE" TABC16) ME: IFMU=SOTHEN14AO0 

61 G=240:6&=8078+1-22: FORT=1ATQASTEP-1:E=E-22: IFPEEK {E) < >OTHENI100 

&2 6=5-59: FOKER+6,B 

&3 PRINTH$ (T+1) TABEDI "aA" PRINTHFCTITABLTI"H"SNEXTTSPRINTH& (T+1) TABtIhren"; rate 


66 GOTO45 

70 W=e4:F=INTIRND(Ii)#4) +1: S=1NT {RND (1) #18) +1: J=1:D=7812+5 

71 60T945 

80 IFY=1THEN125 

81 FOKEA+6 ,200: PRINTH$ {W} TAR (SI LOS: :W=W+1: IFW=ZOTHENJ=05 VD=0: POKEAtS „DO: : GDTO45 
B2 IFS-1THENZ= 1: 50T070 

83 IFS=18THENZ=2:50T0F0O 

897 Z=INT{RND{l)#Z2)+1 

70 IFZ=1THENS=S+1:D=D+235 

92 IFZ=ZTHENS=S-1:D=D+21i 

735 FRINTH& (WTABISIFSFLF)=F1=PEEK (D) = FZ=PEEK (D+ 1): : IFF1< >OANDF 1< >BORF2< >OANDF2<>BT 


| HEN1&0 


96 VO=0: POKEA+5,0:507T045 

100 FOKEA+&,0: PÜKEA+B, 190: PRINTHFCT+1) TABCD) "@"; IFF=1 THENMU=MUF+S: :M$=5STR$ IMUI +" " 
161 IFY=1THENISO 

102 PRINT" EINS" TAB (16) MF$ 

1053 FRINTH$ (T-2) TAB {I-V)ES:FORQ=1TOSG: NEXTO: PRINTHE$ (T-2) TABCI—- 1) WESPRINTHS (WI TAB 
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104 POKEA+B,250: PU=PU+10xF: FRINT "Eiakkehbhi" PL: J=0: VD=0 

105 FA=FAtl: IFFA=FHTHENIZO 

104 GOTD45 

11& G0T028B 

120 F=0: J=1: Y=-1:W=>4:5=1:601045 

125 IFS=17THENE=1 

126 IFS=1THENC=O 

140 POKEA+& „200: POKEA+12,38: PRINTHE (W) TAB {SI WEF 

142 IFS=1 THEND=0O: WehW+i 

143 IFS=17THENC=1:W=W+1 

146 IFC=1THENS=S-1 

147 IFC=OTHENS=S+1 

148 PRINTH$ (WI TAB (5) Z$: POKEA+6 ,0: FÜKEA+12,39: VO=0: IFW=13THENIAO 

149 GOTD45 

150 IFPEEK(E}< >SOTHEN159 

151 TR=TR+1: IFTR=TATHEN1SS 

152 POKEA+8 „250: 601045 

155 PRINTH& (H) TAB {I} $: FORD=WTR1&: PRINTHS {Q-1) TAB (5) WEX: PRINTHS$ (Q) TAB (5) ZS: NEXTU 
157 PRINTHS$ (Q+2) TAB (S) E$: FORR=1T05000: NEXT = FOKEA+B,0: GOT0165 

150 FOKEA+A,O . 
181 FRINTHS& CHI TAB (1-1) E$: POKEA+B , 178: FORQ=1T02000: NEXTR:= POKEA+B,OsLE=LE-1: IFLE=O 
THENI1SO 

162 5G0T028 

165 IFBI=2THENI167 

157 BI=BI-2:60T0171 

157 FH=FH+3: T%=T%+? 

171 1LV=LV+1: PU=PUHLV#20: BOTOZB 

180 FORT=39TD150: FOKEA+12, T: FOR@=1T010: NEXTO,T:FOKEA+12,38: IFFU>HITHENHI=PU 
182 E0T020 
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Auftrag für Gelegenheitsanzeigen in „Gompute mit Br 


Name und Adresse 





An „Compute mit ..‘ 
Trenic-Verlag 





Postfach j : 
ER 

3444 Wehretaill - Unterschrift Datum 

Unter der Rubrik „Kleinanzeigen“- Ich wünsche folgenden Text zu veröffentlichen: 


veröffentlichen wir Gelegenheits- 
anzeigen für Verkaufsangebote, 


Kauf- und Tauschgesuche, Kon- N IR Enns HER Ban ER DR HE I DH DD DR U DR DR DR DR DD DR DR DR DR 
taktaufnahme bzw. Erfahrungs- I Eu HRG Dan ER Ban BEN BE ER BE BR EN Il IA | | Ik bJ 


austausch usw. 


Aktuell: 
Unsere Preise für „Kleinanzeigen“: 
Jede Kleinanzeige nur 10,- DM RR RO BIER BR HR BR I DR DD DD U RR DD En 
Jede gewerbliche TR HER Ua I a HR HRG DR BR DR DON DD N ER U DR DR DR DR DR RR DR U 
Gelegenheitsanzeige nur 15,- DM EREHEREBZREBEEBENBERERERRAN ER EEN | 
a 

n TR HT DR SRG DR DER DB DR DR DR N DDR RD ER RD 


ne 
Eine Veröffentlichung erfolgt nur TH IE DRS BER DER DO BR DE DE DR DR HE ER En ER EN! 14 | | 


gegen Vorkasse! Zütreffendes ankreuzen 
Kleinanzeigen jetzt suche O Software suche © Hardware O Tausch -D Versch. 
noch pr eiswerter biete an OÖ Software 


biete an © Hardware © Kontakte & Chiffre 
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Suche Software 


"Commodore 64 - Commodore 64 - Commo 

Suche dringend Programme aller Art (Spiele, 
Anw Adventure usw). Habe selber -Pro- 
gramme für den C 64. Biete außerdem mas- 
senhaft Pokes für G-64 Programme an tbil- 
lig)!!! Werverschenkt oder verkauft sehr gün- 
sig C 64, Zubehör, Drucker? Listen, Ange- 
bote, Listanfragen: D. Scheifgen, postlg. 53, 
Bonn 1 (1,50 RP) 






Biete an Software | 


VC-20 Programme, z.B. Boeing 727-Simula- 
tor. Angebote auch Tel. 02324/61862, 
sonst. geg. frankierten Umschl., Horst Quer- 
furt, Postf. 843042, 4320 Hattingen #4. 





C-64 Hyper Sports nur 36 DM oder VC-20 
Progr. ab 2 DM, Markenprogr. ab DM 11,95! 
Liste geg. Freiumschlag anfordern! 10 Mar- 
kendisketten SS/DD nur 35,-/ in Hardbox 
nur DM 40,- bei Computer Rehbeck, Cli- 
chystr. 34, 7920 Heidenheim, Tel. 073217 
43327. Preise incl. MWSt, Versand p. NN 
oder V-Scheck, zzgl. Versandspesen. 


C-64 Datenstar VC-20 - damit können Sie 
bis zu 500 Adressen, Kassetten, Platten... 
verwalten! Datenstar ist menügesteuert! 
Disk + 16seit. Anleitung nur DM 39,-! incl, 
MWSt, Versand p. NN oder V-Scheck, zzgl. 
Versandspesen. Info geg. Freiumschlag o. 
Bestellung an Computer Rehbeck, Clichysir. 
34, 7920 Heidenheim. 


ik Verkaufe ca. 90 Programme weak 
(Anwendungen und Spiele ohne Copyright). 
Auf Disc oder Cass. zum Preis von insges. 
30,- DM. Georg Köster, Herm.-Ehlers-Str. 8, 
2903 Ofen/Bad Zwischenahn. 


Commodore 16/116: Wir haben die Pro- 
gramme, die Sie suchen! Infos kostenlos bei: 
Andreas Bachler. Blücherstr 24, 4290 
Bocholt. Außerdem: Die GC 16/116 Insider- 
Mappe für6,00 DM oder dasÜberraschungs- 
paket mit 5 Top-Spielen für nur 10 DM (Bitte 
nur Schein oder Scheck!) 





Einmalige Gelegenheit f. VC-20. Ich verk. 11 
org. Spielecassett. z. B. Kegeln, Luftkampf, 
Ufo etc... (Preis 50,- DM} + 2 Spieihallen 
Module (Hau den Lukas, Pole Posit.) NP: pro 
Stck. 98,-/VP; pro Stck. 40,- + Vbk. z. Cas- 
settenrecorder und VCG-20 (Preis: 30,- DM). 
Schreibt an: Bernd Failner, Birkensteingasse 
2, 8563 Schnaittach. 








Kleinanzeigen. j Kleinanzeigen Kleinanzeigen * 





Reisekostenabrechnung als Anlage zur 
Steuererklärung für Beamte, Angestellte und 
Selbständige. Diskette/Cassette für C 64. 
Info gratis bei Heister Software, Bötigerstr. 
29, 5205 St. Augustin 3. 


© 16/C 116 Superspiele! Info i und 2 gegen 
Rückporio bei Hannes Kaltenbach, Priel- 


: mayerstr. 16, 7990 Friedrichshafen. 


GC 16/C 116! Habe selbsigeschriebene 
Spielprogramme. Info gegen 80 Pf. Freium- 
schlag an Wolfgang Dunczewski, Schmidt- 
bornstr. 18, 6230 Frarikfurt 80. 


3D-Grafik m. Animation, dreht, verkl. vergr,, 
schiebt beliebige Objekte in Phasen. 20 Seit. 
Anig, u. Kass. DM 16,- (GPC 464 u. a.). Daten- 
sätze für Luftfahrzeuge Kass, oder Listing. 
info. 80. Grafik auf d. Kugel, Phasen. von 
Schriften oder Flächen. Kass. u. Anltg. DM 
12,-. R Wagenknecht, Ilserstr. 1, 1000 Berlin 
44, + Porto. 


Wenn Sie preisgünstige Software für Ihren 
Schneider CPG suchen, senden Sie einfach 
eine Postkarte an folgende Adressen: Fried- 
rich Neuper, 8473 Pfraimd, Postfach 72, Sie 
erhalten dann sofort daskostenloseinforma- 
tiorsmaterial. j 


Die neueste Software für Ihren VO-64 gegen 
Unkostenbeitrag abzugeben. Über 850 Pro. 
(Spiele und Anwenderprg.). Andreas Witt- 
gen, Postlagernd Nr. 073861 C., 5060 Ber- 
gisch Gladbach t. 


Biete Hardware | 


VC-20: 64kB Erweiterungsmodul, alle Erwei- 
terungen C3-8-16-32-64) frei einstellbar und 
15 Listings für „mit Erweiterung“ für 150 DM 
zu verkaufen. Tel.: 05921/715725. 











Ark ah han ah ka 
* SCHNEIDER CPC 464/664 * 
%* Univers. Ein/Ausgabe-Interface 32 Bit & 
%* TIL. Zum Anschl. vielseit. Hardware a. & 
%* CPC.z.B.A/D Wandler, Relais, Roboter, & 
%* Schul-Eisenbahn-Discoelectr. od. # 
%* MäL Zubehör. Ausf. Bedien.-Ant. Eig- %* 
* nes Netzteil. Programmierb. in Basic 
* od. Asemml. Interupttaugi* DM 198 
%#* EPROMPROGRAMMIERGERÄT ar E/ 
%* A-nterface anschließb. f. 2716-27128, 
% 2516-2564 m. komfort. Bedierersoftw. 
% 28pol. Textoolsock. vorber. f. 27256. 
% Maschinenspr.-Monitor. Lesen, Leert. 
%* Programm. Vergleich. v. Eprom’s * DM 
%* 178 M&L-MaximinisLichter, Hauptstr. 


Kun 


‘* 1a, 5511 Mannebach, T. 06581/3535 %* 


LE 2 5 5 2 2 2 2 S 5 2 2 2 2 5 2, 


Compufe anip 











Verkaufe Schneider CPC 464 mit Farbmoni- 
tor, Software + Bücher komplett gegen 
Höchstgebot sowie Drucker NLQ 401, Tel. 
02171-89232. - 


Einmalig für Einsteiger!!! VC-20 zu verk, Mit 
vielen Extras: Datasette, 8KB-Erweilerung, 5 
Spielkassetten, 3 Steckmodulspiele. Schrei- 
ben Sie an: Markus Koller, Hof 608/HP CH- 
9400 Rorschacherberg oder Tel. 0717 
425886; bevorzugt Schweiz PS: Garantie 
noch nicht abgelaufen! 2 Anwenderhandbü- 
cher dabei! 


G&S Computerservice, Rudi Gutemann tu, 
Dieter Schulz, Soft- u. Hardware C-64. Unser 
Angebot: Farbb. Epson 80, 801, 802 je 15,95, 
Disketten 3. 50 St. IDer Box 39,50, Abdeck- 
haube 12,25, Lüfter 37,90, Box 85 Disk. m. 
Schloß 35,50, Diskettenloch. 12,95, Eprom- 
brenner kpl. 159,00. D. Schulz, Funkenstr. 42, 
5020 Frechen, Tel.: 02234/57848. Katalog 
kostenlos. 


VG-20, 17 Monate jung 
16 k Erw. mit Sch. in 8 k Absch. 
Staubschutzhaube 
3 Bücher 
10 Eintipplistings 
120 Programme 
Commodore Tasche 
3 Computer-Zeitschriften 
für 400 DM 
Telefor (05322) 82683 


Achtung! Tausche CPC-Spiele auf Cassette. 
Briefe an: Roif Eppinger, Fraunhoferweg 4, 
7440 Nürtingen. Jeder Brief wird beantwor- 
tet! 





Verschiedenes | 


An alle schreibfaulen EPC-Fans! Tippe für 
2 Pi pro Zeile Ihre Programme ab. Zeitschr. 
vorhanden. Listings od. Anfragen an: E. 
Dreesen, Postfach 1220, 4132 Kamp-Lintfort, 
Tel. 02842/81197. 


C-564-Freaks!!! Verkaufe 10 Disks doppelsei- 
tig bespielt: Nur 40 DM. Dieselbe. ds/dd, leer 
>>> 30 DM Turbo-Tape-Modul m. Reset: 30 
DM Seikosha SP 1000-Drucker: GC 64 
anschlußfertig; NLQ; nur 871 DM !! Gommo- 
dore PC 10: 4387 DM! Alle Artikel neu mit 6 
Mon. Garantie. M. Wenzel, Hansjakobstr. 10, 
7552 Durmersheim. 








11/85 


kurs 











Teil 7 
Fortsetzung der alphabetischen Befehisliste. 
BVS Branch on Overflow Set (Verzweigs, wenn Überlauf gesetzt) 
Dieser Befeht ist das Gegenstück zum BVC-Befehl. Die Verzweigung wird ausgeführt, 16543210 
sobald bei einer Operation das 7. Bit überlaufen wird. een 
. NV BDIZGC 
HEX Adressierung Bytes Syntax _——— 
: nicht beeinflußt 
70 Relativ 2 BVC data u. 
Beispiele: LDA LDA 
+%00001101 ;Lade Akku mit 13 - 4 %00001011 :Lade Akku mit 13 
ADC ADC 
+#%10000000 ;Addiere 128 zum Akku +#%00000111 ;Addiere 7 zum Akku 
:V-Flag wird gesetzt :V-Flag wird gelöscht 
BVC +7 ;Sprung wenn V-Flag BVC +7 ‚Sprung wenn V-Flag 
gesetzt gesetzt 
LDA #10 :Lade Akku mit 10 LDA #10 ;Lade Akku mit 10 
JMP END .  ;Sprung zum Ende JMP END ‚Sprung zum Ende 
LDA #20 ‚Lade Akku mit 20 LDA #20 ‚Lade Akku mit 20 
END ;Ergebnis = 20 END ;Ergebnis = 10 
EEE EEEEEEEEBEEEEEEEERSECHEEEESSEEEEREENEEEEEEEET, 
CLC Clear Carry Fiag (Lösche Übertrag C=0) 76543210 
|. Das C-Flag wird gelöscht. Ein anderes Register oder Flag wird nicht beeinflußt. Wichtig NV BDIZG 
ist, das dieser Befehl als Teil der normalen Addition-Operation erforderlich ist, da der 0 
einzige beim Microprozessor 6510 verfügbare Additionsbefehl ADC ist, der auch den 
Übertragungs-Status addiert. Beispiel:: 
HEX  Adressierung Bytes Syntax CLE ‚lösche C-Flag 
_ LDA #3 ;lade Akku mit 3 
18 mie 3 3 — 3 1 Gb ADC #7 ;addiere 7 zum Akku 
JMP END ;Sprung zum Ende 
‚Ergebnis = 10 









SEC | ‚setze G-Flag 

LDA /3  ;lade Akku mit 3 

ADC |7 _;addiere 7 zum Akku 
- Ergebnis = 11 


Clear Dezimal Modus (Lösche Dezimale Betriebsart) 


Eine Besonderheit des 5510 bzw. 6502 ist, daß er im dezimalen sowie im binären Modus 
| arbeiten kann. Dieser Befehl löscht die dezimale Betriebsart und schaltet auf die Binäre- 
Arithmetik um, Kein anderer Status oder Register-Inhalt wird beeinflußt. 





HEX  Adressierung Bytes Syntax 76543210 
D8 Impliziert 1 CLD - NV BDIZC 
s 
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CLI Clear Interrupt Disahle Bit (Lösche Unterbrechungs-Maske 1-9) 
Das !-Flag wird gelöscht, Dadurch werden Interrupt-Anforderungen freigeschaltet. Es 
werden keine anderen Register oder Flags beeinflußt. - 76543210 
HEX Adressierung Bytes Syntax NV BDIZC 
98 Impliziert 1 CLI 0 











CLV Clear Overfliow Flag (Lösche Überlauf V=0) 


Das Overflow Flag (V-Flag) wird gelöscht. Weitere Register werden nicht beeinflußt. 76543>?10 
HEX Adressierung Bytes Syntax NV BDIZC 
B8 Impliziert | 1 CV 0 


EEE EEEEgEETEEEEEEEEDESGETETEEESTETEITEEEEESERTEEIEEETTESTEEEEEEERRECHSUEERSERSTAESROHRSESERSEREEREEEEEEE: 
CMP Compare Memory and Accumulater (Vergleiche Speicher mit Akkumulator) 


Das adressierte Byte wird vom Inhalt des Akkumulators subtrahiert. Das Ergebnis wird jedoch in keinem Register festgehalten, ledig- 
lich die Flags N (Negativ), Z (Zero), C (Carry) werden beeinflußt. Der Befehl bietet die gleichen Speicher-Adressier-Optionen wie 
der ADC-Befehl. Er ist einer der wichtigsten Vergleichsbefehle und steht fast immer vor einem m Verzweigungsbefehl 





HEX Adressierung Bytes Syntax 
6 Indirekt, vor-indiziert mit x 2 CMP (addr.x) 
65 Null-Seite (direkt) 2. CMP addr 
cg Unmittelbar 2 CMP + data 
cD Absolut (direkt) 3 CMP addr 76543210 
D1 - Indirekt, nach-indiziert mit Y 2 CMP (addr}Y NV BDIZC 
D5 Null-Seite indiziert mit X 2 CMP addı,X y TX 
:D9 Absolut indiziert mit Y 3 CMP addıY mn 
- DD Absolut indiziert mit X 3 CMP addı,X 
Beispiele mit dem BEQ-Beiehl: Beispiele mit dem BCS-Befeht 
LDA #10 ;lade Akku mit 10 LDA: #10 ;lade Akku mit 10 
CMP #10 ‚vergleiche mit 10 CMP #20 ;vergleiche mit 20 
BEQ ZERO ;springe wenn gleich BCS KLEIN ;springe, wenn der Vergleichswert kleiner oder gleich 
LDA #20 ;lade Akku mit 20 dem Akku-Inhalt ist 
ZERO ;Ergebnis =10 LDA #20 :lade Akku mit 20 


KLEIN ‚Ergebnis gieich 20 
LDA #10 ;lade Akku mit 10 


CMP #5 ‚vergleiche mit 5 LDA #10 ;lade Akku mit 10 

BEQ ZERO ;springe wenn gleich Null CMP #5 ‚vergleiche mit 5 

LDA #20 ;lade Akku mit 20 BEO ZERO ;springe, wenn der Vergleichswert kleiner oder gleich 
ZERO ;Ergebnis =20 dem Akku-Inhalt ist 


LDA #20 ;lade Akku mit 20 . 
KLEIN ‚Ergebnis gleich 20 





CPX Compare Memory by One [Vergleiche Indesregister X mit Speicher) 


Dieser Befehl entspricht dem CMP-Befehl, mitder Ausnahme, daß hier nicht der Akkumulator sondern das Indexregister X verglichen 
wird. Auch läßt dieser Befehl wesentlich weniger Adressierungsarten zu. 
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HEX Adressierung Bytes Syntax 
76543210 
EO Unmittelbar 2 CPX + data u 
| EA Null-Seite (direkt) 2 CPX addr NV BDIZE 
EC Absolut (direkt) 3 CPX addr X. xX 
Beispiel: LDA #10 ‚lade x-Register mit 10 LDA #20 


CPX #3 





£PY Comnare Memory and Index V 


‚vergleiche X-Register mit 5 
BEO ZERO ;springe wenn gleich Null 


ZERO ;Ergebnis gleich 20 


(Vergieiche Indexregister Y mit Speicher) 


Die Arbeitsweise des CPY Befehls mit dem Indexregister Y entspricht der des GFY-Be- 
| fehls mit dem Indesregister X. Auch die Adressierungsarten stimmen überein. 





HEX Adressierung Bytes Syniax 
co Unmittelb 2 CPY data 6543210 
nrnittelbar # rasen 
c4 Null-Seite (direkt) 2 CPY addr NV _BDIZEO 
cc Absolut (direkt) 3 CPY addr xX x 
Beispiele: LDY #10 ‚lade x-Register mit 10 LDY #10 ;lade Y-Register mit 55 


CPY #5 
BEQ ZERO ;springe wenn gleich Null 
LDA #20 lade Akku mit 20 

ZERO ;Ergebnis gleich 20 


vergleiche Y-Register mit 5 


CPY #5 vergleiche Y-Register mit 55 

BEQ ZERO ;springe wenn gleich Null 

LDA #20 lade Akku mit 20 
ZERO ;Ergebnis gleich 55 ° 


A ————————————— | 


DEC Decrement Memery by One (Dekrementiere Speicher um 1) 


Durch diesen Befehl ist es möglich den Inhalt einer Speicherstelle um 1 zu dekrementieren (erniedrigen). Dies ist sehr 
nützlich bei Programmschleifen in denen eine Speicherstelle als Zähler benutzt wird. 





HEX Adressierung Bytes Syntax 

66  Null-Seite (direkt) 2° DEC addr 7654321 

CE Absolut (direkt) 3 DEC addr OBEREN 

D6 Null-Seite indiziert mit X 2 DEC addı,X NV BDIZC 
Absolut indiziert mit X 3 DEG add, X X. X 





| DE 


Beispiele: LDA #10 ;lade Akku mit 10 
STA memory ;Speichere die Zahl 10 » 


LDA memory ;lade Akku mit dem Wert 
in der Adresse memory 


-9 


in der Adresse memory 
DEC memory ;dekrementiere memory um 1 


‚Ergebnis 





Literatur: 


6502 Microcomputer-Progammierung, Peter Heuer, Hofacker Verlag 
6502 Programmierung in Assembler, Lance A. Leventhal 

64 Intern, Angershausen, Becker, Englisch, Gerits, Data-Becker Buch 
6502/65002, Christian Persson, Heinz Heise Verlag 
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Kennen Sie ETIS? Nein? 
|Danı werden Sie dieses spannende und „Kaiffüge” Action-Game 
erst einmal 





| Sie schlüpfen in die Rolle des ETIS, einem | geladenen Wände nicht. Dasist ETIS’ Tod! @g } 
5 7 ı Gnom, der versuchen muß, durch ver- | Für jede Bewegung nach oben erhalten | 

ner fe ahren MUSSEN. schiedene Etagen zu gelangen, indem er | Sie fünf Punkte; wenn Sie zurückweichen I | 

| ; sich hüpfend einem schießwütigen Mon- | müssen, werden Ihnen fünf Punkte abge- 8 

20: mx 2; ur ster nähert, das nach seinem Leben trach- | zogen. \ 

0: ers tet. Jetzt aber genug der vielen Worte und an $ 
#*r (co) by ### .. NR ’ i R ip Bu 

40 ° ur a,m. soft ##* Aber Achtung: Berühren Sie die elektrisch | die Abtipparbeit. Viel Erfolg!!! “ 

DO TO EEREREREHEKERHERE Dr BRBLER GE TTR a ntg WÜRR TEL A ls DÄHEREL TE Lit hei mE RE EL ERTIEE 

60 GOSUB 1410:G0SUB 1130 

70 560T0 910 

80 rt (1)=REMAIN{DI:RÄNDOMIZE TIME: 

FO raum=Or:a=0:sc=0:hi=ü:g=3:w=2Fschr %=0: men=3:ırt=0:b=0:c=0 

100 FÜOKE &A45D,B0:IF raum=0 THEN GOSUB 1570:60T0 150 

110 IF raum=1 THEN GDSUB 1580:60T0 150 

=0 IF raum=? THEN BOSUR 1810:50T0 150 

13060 IF raum=$ THEN G0SUR 1750:6070 150 

140 ir raum=4 THEN raum=d:a=0:50T0 100 

150°. haupttei L ------ --- -— 

160 ENV 1,5,2,30,5,-2,20, 5,2,20 

170 RANDOMIZE TIME 

180 LOCATE q,w-1:PFRINT EHRS (SPICHRE (32) 3 LOCATE q,w:PRINT CHR$ (32) CHR$ (32) 

170 i=J0Y1o) 

=00 IF j=1 THEN w=w-1:50UND 2,300,5,15:sc=sc+5: IF w=& THEN gq=3:w=2Pr sc=sc+500: 50 

UND 1,200,200,5,1:G60T0 100 

210 IF j=2 THEN wew+1l:8c=sc-5:50UND 2,300,5,15:IF n>=22 THEN »=22 

220 IF j=4 THEN q=qg-i:sc=sc+t5:50UND 2,300,5,15: IF q{Z THEN q=? 

230 IF j=8 THEN g=g+1l:sc=sc+S:SQUND 2,300,5,15:IF q>38 THEN q=38 

2409 IF a=1 THEN !LSCROLL,7,15: !RSCROLL,11,19:60T0 280 

250 IF a=2 THEN IRSCROLL,11,19: ILSCROLL, 7,15,7:5070 280 

260 IF a=3 THEN IRSCROLL „7,155 ILSCROLL, 11,19: 6010 200 

270 IF a=4 THEN !IRBCROLL,11,19: 1LSCERDLL,15,7 

280 LOCATE q,w: ICHR,Echr%: IF chr%2<£>32 THEN 370 

=81 LOGSATE El gt chr#s: >32 THEN 370 

290 LOCATE q,wr1: !CHR,Gchr%s: IF chr%£>32 THEN 370 

234 LOCATE gti,n- 1: ICHR, echrä: IF chrXX732 THEN 370 

z00 Di 

310 LOCATE 2,4: FEN 1: FRINT"SCORES "z PRINT USING "####4#", SC 

320 LOCATE q,w-1:PEN 23FRINT bE(1L):LDCATE q,w:FPRINT b$(2) 

3:0 EI 

340 c=c+l:IF c=1& THEN c=0 

350 IF c=15 THEN GOSUR 490 

350 GOTO 186 

370 —uu onor treffer menu 

380 LOCATE. q,w: PRINT CHRS (278) CHRF (28): LOCATE q,W=-1s PRINT CHRS& (238) CHRE (239) 

370 men=zmen-i 

400 IF men=2 THEN LOCATE 29,3: PRINT CHRS (2 S2I CHR (32): LOCATE 29,4: FR1NT CHR&(IZIT 

HRE& (372) . 

410 IF men=1 THEN LOCATE 32,3:FRINT CHR$LS2ICHR$ (323: LOCATE 32,4: PRINT CHR&(Z2)C 

HR& (32) 


10 TREE REF H HN 
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IF men=0 THEN LOCATE 35,3: FRINT CHR$ (32) CHRS$ (32) : LDCATE 35,4: PRINT CHR$(32)C 


HR& (32) 


430 
440 
4509 
40 
A700 
4390 
470 
Ss00 
>32 
s10 
320 
T 

330 
540 
550 
540 
570 
80 
=70 
[#118] 
510 
620 


IF men{D THEN 60T0 8050 . 

SOUND 2,300,10,15:50UND 3,500,15,15 

FOR g=0 TO 120:NEXT . 

LOCATE q,w=sFRINT CHRS (32) CHRE (32) 3 LOCATE gsw-l=PRINT CHR$ (32) CHR# (32) 
IF b=1 THEN LOCATE 4,9: PRINT" ".:b=0 
GOTO 180 


FOR g=4 TOD 38:L0OCATE 9,9: FRINT EHR#i9753;:50UND 1,20,1,15: I! CHR, Schr%s IF chr#% 
THEN b=1:50TD 370 

NEXT 9 

FOR g=38 TO 4 STEP- -1:LOCATE 9,9:FRINT ECHR$(32)5:SDUND 1,g9#10-19*7) ,1, 15:NEX 


g=0 
Kaullsn 
a qraf----- 70 
FEN 1:L0OCATE 2,B:PRINT c$t1}:2L0OCATE 2,9:PRINT c#t2);LOCATE 2,10:FRINT c#t2} 
BEIDEN 


FEN Z2:LOCATE 18,1:FRINT a#sPEN i 

IPRINT,1 

LOCATE 2,4: PRINT"SCORE: "ze FRINT USING "Hi"; SC 

LOCATE 29,3:PRINT bSiI)" "bEil)" "bEtl)HeLDEATE 29,4: PRINT bE(2I" "bElz}" "b 


#233 


1 
622 
62% 
53 
640 
650 
San 
670 
580 
Fo 
700 
710 
720 
7230 
740 
750 
750 
770 
7890 
70 
BoOo 
810 
Br0 
330 
840 


IF men{$ THEN LOCATE 29,3:FRINT" "sLDCATE 29,4:PRINT" % 

IF meni2? THEN LOCATE 29,3: PRINT" ":LOCATE 29,4: PRINT" “ 

IF men{il THEN LOCATE 29,35 FRINT" "2 DCATE 29,4: FRINT"” “ 
BEE 


PRINT CHR& (22) CHRE (1) 
FEN 3:LOCATE 1,8: PRINT" g", 
LOCATE 1,9:PRINT"' Dun 
LOLCATE 1,10:FRINT"% FAR 
LOCATE 1,12:PRINT"t ("5 
LOCATE 1,13:3PFRINT"’ .n 
LOCATE 1,14:PRINT"&% FAR 
LOCATE 1,155 FRINT" {"r 
LOCATE 1,17:PRINT"' on: 
LOCATE 1,1B:PRINT"%& = up 
LOCATE 1,20: PRINT" t ("35 
LOCATE 1,21:FPRINT"' ... 
LICATE 1,22: PRINT"& EUR 
FRINT CHR$ (227 UCHR#& (0) 
RETURN 

ee game over -- me 

INK 0,0,5: INK 1,3z21INK 2,26: INK Z,19,26:BORDER 3,2 
MODE G:FÜOKE LA4SD,44 
LDCATE B,i:PEN 1:PRINT asz: !FRINT,1 
LOCATE 1,12:PFEN Z:FPRINT "GAME OVER !":RESTORE 1040:FOR 0%=1 TO 26:RE 


AU n%:5S0UND 1,n%*3,20,7:50UND 2,n%,20,7rNEXT 


850 
Bao 
870 
BS0 
ie) 
700 
710 
720 
730 
740 
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LÖCATE 2,18:FEN 2: FRINT "SCORE: "ec | 
IF se>hi THEN his=sce | 
LOCATE 2,20:PEN 3:FRINT "HI-SEORE: "shi 


LOCATE 1,24:FEM 14: FRINT"For FLAY press FIRE": 
IF JOYio)=i& THEN GOTO 900 ELSE GDTO 980 
nn %»BC02: SC=0: DB=Fr W327: RAUMed; A=tı men=3:50T0 100 
om IE ne Anleitung -----—— 
MODE 1:INK 0,OEINH 1,15,2:INK 2,26: BORDER Zuın=39: y-2C 
LOCATE 18,1: PRINT at: !IFRINT,1 
LOEATE 15,4: FEN 24 FRINT "ANLEITUNG" 
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750 LDCATE 
0,1,15 
750 LOCATE 1,8: FRINT"Raeume nach oben gelangen. ":5BUND 2,300,1,15 

770 LOCATE 1,10: FRINT"Aber VORSICHT Sie duerfen nirgends an-":SOUND 2,300,1,15 
780 LOCATE 1,12s:PRINT"stossen denn dann verlieren Sie eines":50OUND 2,300,1,15 
770 LDEATE 1,14:PRINT"Ihrer drei Leben. Vorsicht vor dem ":SOLND 2,500,1,15 


1,5:FEN 1:PRINT"Sie sind ETIS und muessen durch alle "3:SO0UND 2,30 


1000 
1010 
1620 
1030 


1040 DATA 60,53,47,45,60,0,45,47,45,40,53,0,53,0,53,47,45,36,40,40,45,45,47 ,53,4 
7,60 . 
1050 LOCATE 1,24: FRINT" press fire for play the game - 

1050 IF JDYtO)=15 THEN GOTD 80 ELSE GOTD 1050 

1070 "mom. mm mm 

1080 PEN ZELOCATE »,„y:FRINT CFt1)2LOCATE x ,y+t1:PRINT c#t2):LOCATE KaytzZ:PRINT c# 


(3) 
1070 
1100 


E #,y+Z2:PRINT CHR$<22) CHR& (323 : SDUND 3,500,5,15 


LACATE 1,15:FRINT"Fhantom es schiesst auf Sie.":50UND 1,20,300,15 
LOCATE 1,18: PEN 3:FRINT"Ich wuensche viel Spass":RESTORE 1040 
1 TO 26;READ n%: SOUND 1,n%*4,720,7:250DUND 2,n%£,20,7:NEXT 
EVERY 30,2 GOSUB 1070 \ 


FOR d#= 


FOR gh=0 TD 100:NEXT 
LOEATE x ,yaFRINT CHR&(S2ICHRE (23 LOCATE “,yti:FRINT CHR&ÜSZICHRE (32) 4 LDOCAT 































1110 x=x-1:1IF x=1 THEN x=35#F 
1120 RETURM 
11307 mama mm m nn nn nn nn . 
1140 KEY DEF a,z 
1150 SYMRÜL 35,255 ,56,36,24,255,0,0,0 GRAPHIC MASTER 20 
1150 SYMROL 26, 255,68,34,17,34,68,255,0 
1170 SYMBOL 37,0,60,66,255,129,255, 55,60 Der GRAPHIG MASTER 2.0 ist ein leistungsfähiges Programm 
1190 SYHMBOL >8,24,24,24,24,24,60,126,255 zur Erstellung von Bildern und Graphiken auf dem Schneider 
1170 SYMEDOL 37,24,24,60,126,126,60,74,2 EPC 484, das fürden Computerlaien ebenso interessant ist, wie 
1200 SYMEDL 40,255,126,60,24,24,24,24,24 CE HELZUEIIC FE 
N [= Fe Menügesteuert können Graphikfunktionen verwendet werden, 

1210 SYMBOL 126,0,56,108,198,156,192,96,63 die das Ersteiten von Bildern sehr einfach machen. $o kann 
1220 SYMBOL 127,0,0,121,72,72,120,72,255 man zum Beispiel Linien ziehen, Kreise malen, Flächen füllen 
1230 SYMBOL 128,0,0,201,137,137,176,136,255 oder Feinheiten in der Vergrößerung verändern. Die Bilder las- 

"; sen sich. auf Diskeite abspeichern um sie in eigenen Program- 
1eao FALEEE 127,0,0,228,4,196,68,64,196 men zu verwenden oder späler wieder mitdem Graphic Master 
1250 SYMEOL 130,1,3,7,13,15,5,2,1 zu bearbeiten. Selhstverständlich können die Bilder auch aus- 
1250 SYMBOL 131,128,192,224.176,240,150,54,178 gedruckt werden. 
1270 SYMBOL 1322,5,7,11,19,2,2,14,14 Was sie dazu benötigen: 
1280 SYMBOL 1535,192,224 ,208,200,192,64,112,112 - einen Schneider LPG 464 mit Farh- und Grönmeniter 
1290 SYMROL 134,0,3,7,15,31,63,127,255 - eine Diskeltenstation (5.25” oder 3") 

1300 SYMBOL 135,0,192,224,176,240,176,208, 224 - die Graphik Master 2.0 Driginaldiskeite . 
1310 SYMREOL 134,199, 15_25_25 25,.24,29.3 Das ausführlich Handbuch erlaubt es Innen nach kurzer Zeit 
un 5 74" ’ an M De + mit dem Graphic Master zu arbeiten. Die Preise liegen für die 
1520 SYMBOL 137,192,224,224,224,224,121,3,241 5.25” Diskette bei 79,-- DM und für die 3” Diskette bei 

1330 GYMBOL, 158,31,31,31,31,31,63,127,255 89,-- DM. 

1340 SYMBOL 139,255,192,192,172,192,192, 224,224 Gesehen bei: Vortex Vertrichs GmbH, 7706 Neuenstadt 5 
13550 SYMROL 75,0,1468,73,127,255,177,.73,148 j u " 
1360 af=CHR$ 1125) +CHR& {1273 +CHRE& (128) +CHR& 1177) 


1376 
1380 
1390 
9} 
1400 
1410 
1370 
1330 
1449 
1450 
1450 


b£(1}=CHRF (130) +CHRF A131) 
EeZI=SCHRE EL SPIHCHREIIESI 
E# (1) =CHRE (134) +CHRE(1ITI EC$ (DI =EHRE (1369 +CHRS (1I7) 2c$ {FI SCHRE (1 IBI +HCHRE LIE 


RETURKA 
REM 
SYMBOL AFTER 232: MEMORY &A3SFF 
RESTORE 14B0 

FOR n=&A400 TO BACH 
READ ac$:PFOKE n,VAL U"&"+ac$) 

NEXT:CALL A400 
"1470 RETURN j 

1480 DATA 01,08,a4,21,02,24,cd,d1,bc,c9,00,00,00,00,10,34,03,47,34,03,76,84,03,9 
©;84,05,bd,24,50,52,99,48,04,40,593,43,52,4# „40,00 ,52,533,43,52,4# „4c,00,43,48,02, 
O0 . 
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1390 
1500 
1510 
1520 
1530 
1540 
7,09, 
1550 


programme 


DATA dd,6e,00,dd,23,dd,23,24,26,00,29,29,29,29,e25,d1,29,29,19,c9 

DATA cd,33,24,11,00,f8,19,eb,21,50,00,19,eb,0e,072,25,06,04,c5 

DATA 0e,02,06,50,e5,d5,7e,12,23,13,10,fa 

DATA d1,72,d6,08,57,e1,0d,20,ed 

DATA 7c,d6,08,67,c01,10,e3,d1,0d,20,dc,c9 

DATA #5,0d,32,34,11,00,c0;19,06,09,05,85,d1,23,01,4f ,00,1a,ed,b0,12,01,b0,0 
c1,10,e2,71,34,20,80,c9 

DATA #5,cd,33,a4, 11, Af, c0,17,06,08,-5,e5,01,2b,01,47 ,00,1a,ed,b9,12,01,50,0 


9B,09,c1,10,ee, #1, 34,20, eü, c9 


1560 
1570 
1580 
1590 
1400 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
| 1690 
1700 
1710 
1720 
- 1730 
1740 
1750 
1780 
1770 
1780 
1730 


1200 


1510 
1820 
1850 
1940 
1950 
1950 
1870 
1880 
18970 
4900 
1710 
19720 
1930 
1740 
1750 
19780 
19770 
1780 
1990 
2000 
2010 
2020 
2020 
2040 
2050 
20680 
2070 
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DE dö,cd, 60, bb, e1,77,c# 


ee Raeme--—— 
MODE 1:INE 0,C0:INE 1,25:1INK 2,15: BRORDER 25 
GOSUR 590 
LDCATE 1,7: PRINT HH EHRT" 


ELOCATE 1,11: FRINTHRHHH 2 IHHBHHHHEE" ı 

LOCATE 1,15: FRINT" HH HER" 5 

LOEATE 1,19: PRINT OHR SEHE": 

LOGATE 1,23: PRINT"SSEESSEEEESEEEESSSESSEHEESEESFSEFEHEFFES"  ı IPRINT, 23 
GOSUR 640: B0OSUB 5I0 

raumsi:a=1 

RETURN 

MODE 1:INK 0,25:1INK 1,18:INK 2,17: BORDER 9 

GÜSUB 580 - 

LDOEATE 1,7: PRINTER #4444#444E #SHHH4H HH" 

ELDOCATE 1,11:FRINT'##H#4 BE 3 0 5020220805020 8 020700 Es 

LOCATE 1,15: FRINTHHSERHRHHBHBBHHHHHHHHHHHHHHIHHHIHIBIHHIHF " 

LDOEATE 1,19: PRINT HH H#HHHHHRHHHHHHHE" 

LOCATE 1,232: FRINT"SFSEEESFEFFEFEHEEEHFEEFEFFEFTEEEEFFFEFEFFER" Ss I PRINT,„Z 


PEN 3: LOCATE 1,17: FRINT" % 7 % 4 "PRINT, 17 
LOCATE 1, 13: PRINT“ r Z:iFRINT,„13 
SOSUB 640: BOSUB 350 


raum=?:a= 


eu 

MODE 1:INE O0,3:INE 2,1:INK 3,24: BORDER 15 

GE0SUB 580 

LOCATE 1,7:FRINT"SESEFEFFEFFEFHE SFEELEFFFFEFFEFFFEEFEEN 
LOCATE 1,11:PRINT” ## ## ## ## ### or 
LOCATE 1,15:PRINT" #8 H## #8 #4 ## #4# 
LOCATE 1,17: FRINT’HHHHHR HEHE HE HH Be": 


LOCATE 1,23: PRINT"SSSSSEEEEETESEEEEHESEHITESFHFHEFEEHFFERE"  : IPRINT, Ir 


PEN S:LOCATE 1,17: PRINT" % % FA A"2:3FRIMT,17 
LOCATE 1,13: PRINT" # j % "z4PRINT, 13 
LOCATE 1,21: PRINT" ri, £ A"2:PRINT,21 


GDOSUE 540: 50O5SUB 550 
raum=3:a=3 j 
RETURN 


ern ar Frust na ma a en eG mm rc a m ol a Pr ra rm BE ar mr m 


MODE 1:INK 0,0:INEK 1,26:INK 2,3:INK F7,24,2&4: BORDER 6 


GOSUB 550 

LOCATE 1,7: PRINTUHHRSHHHÄF EFT #HEHHHFFFFFEHHEHHHERH" 

LOCATE 1,11: PRINT"### #4 #4 #HH# #4# ## u: 

LDICATE 1,153: PRINT"FFEFFFEEF #H#4H #4## #4 FFEHERFEER": 

LOCATE 1,19: PRINTHER #HHH 44H #444 ## #+# ur 

LDEATE 1,23: PRINTUSSSESESSEEESSSHESHEEISHEHEFSHFHFFFEFFFHR") :ıPRINT,=ZS 
PEN 3:L0CATE 1,13: FRINT" x % ZFEiFRINT,1F 
ILHCATE 1,21: FRINT" % A R"TSSPRINT)2I 


BOSUR 540: 605URk 550 - " 
raum=4:3=4 
RETURN 


GSompute mit Ge 





Unter dieser Rubrik werden wir Neuerscheinungen und Programmhesprechungen aus dem Softwarebereich für die Com- 
modare- und Schneiderhomecomputer vorstellen. Beginnen wollen wir mit Software-Neuerscheinungen für Schneider- 
computer von Mastertronic und einem Testbericht zum Programm 007-James Bond. 


Haben Sie schon einmal was von einer 
Ralley London/Madrid gehört? Und das 
dazu nicht mit einem Auto, sondern mitei- 
ner Eisenbahn? Hautnah können dies jetzt 
mit 


alle Schneider-Gomputer-Besitzer 


i_ dem Spiel LOCO-MOTION erleben. 
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Die Aufgabe des Spielers istes, einen Zug 
von London nach Madrid zu bringen. Alle 
europäischen Länder versuchen dies zu 
verhindern, Im letzten Jahr wurden die 
Gleise mit Bäumen, Felsbrocken und Au- 
tos blockiert. Oft werden auch die Gleise 
herausgerissen. Der Spieler muß nun sei- 
ne eigenen Gieise verlegen, um sicher ans 
Ziel zu gelangen. Insgesamt darf der Spie- 
ler vier Helfer mitnehmen und unterwegs 
jede Menge Bonuspunkte sammeln. 

10C0-MOTION ist ein Spiel, bei dem eine 
gute Idee in gute Grafik umgesetzt wurde. 


Haben Sie schon einmal von GHIELER ge- 
hört? Richtig! CHILLER war 1984 das 
meistverkaufte Mastertronic Spiel für den 
C 64 in England. Jetzt wurde dieses Spiel 
für den Schneider umprogrammiert. Ge- 
nau wie bei der Gommoedoreversion ver- 
wandelt sich der Spieler bei Nacht in einen 
Werwolf. Mit einem großen Schrecken 
läuft die Freundin in ein Gespensterhaus. 
Nun istes die Aufgabe des Spielers, seine 
Freundin vor dem Dämon zu retten. 





Auf wen hört der Werwolf? 


Neben diesen Spielen wurde das Spiel FIR- 
DERS KEEPERS, welches 1985 bisher die 
Verkaufshitparade von Mastertronic Eng- 
land anführt und NONTERRAQUEOUS für 
den Schneider Computer umgeschrieben. 
Bei FINDERS KEEPERS wird der Spieler 
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ins Mittelalter zurückgesetzt mit der Auf- 
gabe, einen Schatz für des Königs Tochter 
Geburtstag zu finden. 
FINDERS KEEPERS ist ein lustiges, gra- 
fisch sehr abwechslungsreiches und 
spannendes Spiel, 

Aus dem tiefen Mittelalter wird man in ei- 
ne ferne Zukunft von NONTERRAQUEOUS 
entfünrt. Auf einem wüsten Planeten re- 
giert ein Computer, der die Bevölkerung 
als Schachfiguren benutzt. Der Spieler 
muß nun den Computer zerstören und die 
Bevölkerung des Planeten befreien. 
NONTERRAQUEOUS besitzt über eintau- 
send verschiedene Bilder und kann den 

| Spieler stundenlang fesseln. 


Nähere informationen: 
Mastertronic Deulschland GmbH 
Kaiser Otto Weg 18 

4770 Soest 


185 





keinem befriedigenden Ergebnis. 


Wenn man ein Programm gelöst hat, be- 
kommt man einen mehrstelligen Gode 
mitgeteilt, den man zu Beginn des näch- 
sten Spiels eingeben kann. Schummeln 
ist nicht so einfach; denn das Programm 
erkennt die unmöglichen Codes. 

Zu allem Überfluß wird das Spiel in Echt- 
zeit gespielt; eine Uhr ist ein unangeneh- 
mer Gegner. Wie jeder Spieler weiß, ver- 
liert man jedes Zeitgefühl bei der aufre- 
gendern-Jagd. 


Paris Chase 


Der erste Teil der Gangsterjagd findet in 
Paris statt. Dort will sich Bond mit der 
Agentin May Day treffen. Das ist aller- 
dings nicht so einfach. Leider kam die Da- 
me nicht umhin, einen Gegenagenten an- 
!äßlich eines Essens auf dem Eiffelturm zu 
den Engeln zu befördern. Nun muß sie 
sich mit einem Fallschirm in Sicherheit 
bringen. Das Problem besteht nun für 
Bond darin, sich in dem Straßengewirr 
von Paris soweit zurechtzüfinden, daß er 
gleichzeitig mit May Day an dem Lande- 
punkt ankommt, an dem sie landen wird. 
Dabei soll dem Spieler, der den Topagen- 
ten vertritt, eine Art Radar helfen. 

In diesem Pacman-Teil (die Ähnlichkeit ist 
unverkennbar} ist der Bildschirm mehr- 
fach geteilt. Unten rechts kann der Spieler 
einen Teil von „Paris“ in der Draufsicht se- 
hen, dazu sein Auto - trotz einfacher Gra- 
fik kann man vorne und hinten unter- 
scheiden -, eventuelle Verfolger (Polizei) 
und - mit viel Glück - den Schatten des 
Fallschirms. Darüber ist das Armaturen- 
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A View to a Kill besteht eigentlich aus drei Spielen, die zwar unabhängig 
voneinander gespielt werden können; dann jedoch kommt man leider zu 


breit des Autos abgebildet. Lenkrad, Ge- 
schwindigkeitsanzeige, die Zeit und ???. 
Die zwei weiteren Anzeigen verändern 
sich während der Irrfahrt scheinbar nicht. 
Aber dafür dreht sich das Lenkrad, wenn 
man lenkt. Unten links ist ein Auto darge- 
steilt, daran kann man ebenfalls erken- 
nen, ob man gerade vor- oder rückwärts 
fährt. Oben links befindet sich die Anzeige 
über Höhe und Entfernung von May Day. 
Wenn sie gelandet ist, hat man leider ver- 
spielt (sie gehört nämlich der Gegenseite 
an und wartet natürlich nicht!). 

Oben rechts ist ein dreidimensionaler 
Blick, der fast völlig korrekt den Blick 
durch die Windschutzscheibe darstellt. 
Nur hat man wirklich wenig Zeit, diesen 
Blick zu genießen. Man ist mit Lenken, 
Schießen und Suchen hinreichend 'be- 
schäftigt. Und es ist nicht einfach, die An- 
gentin zu treffen; auch der „Stadtplan“ 
von Paris nützt nicht unbedingt viel. 
Leider ist die Anleitung in Englisch. 
Soweit zum ersten Programm mit seiner 
an sich recht einfachen Grafik. Der Ton? 
Na ja, vor Spielbeginn ist eine Melodie zu 
hören, wenn das Auto irgendwo gegen ein 
Gebäude oder ein anderes Auto fährt, hört 
man das auch, aber das war's. 


City Hall 


Im zweiten Programmteil befindet sich 
Bond in der Stadthalle von San Francisco. 
Er war dortim Aufzug eingesperrt, zusam- 
men mit Stacey, einer befreundeten (?) 
Agentin, Er selbst konnie sich zwar aus 
dem Aufzug befreien, aber Stacey sitzt 
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noch fest. Und sein Gegner ist- togisch! - 
nicht traurig, wenn Bond und Stacey „zu- 
fällig“ in der brennenden Stadthalle um- 
kommen. Deshalb hat er Feuer gelegt. 
Oben !inks sieht man Bond, mindestens 
drei Zeichen hoch, vor dem Aufzug im Flur 
stehen. Darunter ist die Front der Stadt- 
halle abgebildet, der man die eigene Posi- 
tion (gelb), bereits bekannte Räume (hell- 
blau) und die Ausbreitung des Feuers ent- 
nehmen kann. 

Bond kann hier einfach gesteuert werden. 
Außerdem aber kann man mit Hilfe des 
Feuerknopfes auf eine Art Adventure-Me- 
nü umschalten. Mit „links“ und „rechts“ 
kann man dann aus einer Anzahl von Ge- 
genständen den Richtigen auswählen. 
Aus einem zweiten Menü kann man dann 
die Handlung, z.B. Suchen, Benutzen usw, 
auswählen. Die Bedienung ist schnell er- 
lernt. 

Bond bewegt sich recht ordentlich, wenn 
er geht. Und - wie es einem tatsächlich 
gehen würden - schwinden seine Kräfte, 
wenn er dem Feuer zu nahe kommt. Er 
wischt sich sogar zwischendurch die Stirn 
ab. Die Grafik ist also wirklich gelungen. 
Ton fehlt auch hier, aber braucht man 
wirklich unbedingt Musik, wenn man aus 
einem brennenden Haus entkommen 
will? 

Die Schlüsse! beispielsweise haben ver- 
schiedene Farben; sie passen nur auf die | 
gleichfarbigen Türen. Außerdem scheint 
die Information von May Day lebenswich- | 
tig za sein. 

Weit kommt man da nicht so ohne weite- 
res! 
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tips & tricks_ 
Silicon Valley 


Der dritte Teil ist auch nicht schlecht um- 
gesetzt. Bond scheint neue Kräfte gesam- 
melt zu haben; denn er bewegt sich 
grundsätzlich im sportlichen Laufschritt, 
Er befindet sich in einer Mine unter Silicon 
Valley. Nun wird auch das Ziel seines 
Gegners klar: er will die totale Kontrolle 
über den Computermarkt. Dazu genügt 
es, diese Mine in die Luft zu jagen. Die Erd- 
formationen an dieser Stelle Amerikas 
würden dann nachgeben, sodaß der Pazi- 
fiksich etwas ausdehnt. Und dann können 
sich die Fische mit den Chips vergnügen. 
Bond muß nun die Bombe finden und sie 
rechtzeitig entschärfen. Leider braucht er 
dazu die Hilfe von May Day, die natürlich 
nicht auf ihn wartet! Er muß sie erst ein- 


mal finden und dann noch überzeugen! | 


Obwohl - bei dem Wahnsinn, der hinter 
dem Plan des lbeltäters steckt, dürfte das 
nicht schwer sein! 

Auch hier hatman wieder die Möglichkeit, 
zwischen Steuerung der Spieifigur und 
Menü umzuschalten, um die verschiede- 
nen Gegenstände richtig einzusetzen. Nur 
muß man sie ersteinmal haben! Auch hier 
scheint die Information aus dem vorher- 
gehenden Spiel von grundiegender Wich- 
tigkeit zu sein. 

Abgesehen vom ersten Teit ist das Spiel 
grafisch gut gelungen. Die Lösung ist 0a- 
rantiert nicht so einfach wie bei vielen Ad- 
ventures, außerdem enthält das Spiel ei- 
nen großen Arcade-Anteil, aber wesent- 
lich mehr Adventure als alle bisherigen, 
sogenannten Arcade-Adventure, die im 


Grunde nur verkleidete Pacmans mit - zu- 
gegeben - guter Grafik sind. 

Der Ton ist im allgemeinen zwar leider 
nicht umwerfend, aber dafür ist etwas 
Sprache eingebaut, die ja sehr viel Spei- 
cherpiatz benötigt. Deshalb sind es auch 
nur ein paar Worte, sonst ginge es auf Ko- 
sten des Spielwertes. 

Der einzige Nachteil: 

das Laden dauer und dauert und ... Viel- 
leicht gibt es das Programm ja auch mal 
auf Cartridge oder Diskette? 

Ein echter Spieler - nichtSpielesammler - 
hat sicher länger Freunde an diesem Ar- 
cade-Adventure. Denn: wenn ein Teil ge- 
löst ist, heißt das ja nicht, daß er nichtbes- 
ser gelöst werden könnte, was wieder ei- 
nen Vorteil im folgenden Spiel bedeuten 
würde, 


6er Enden | 


FROSRAMMIERHILFE FUER FROGRAMME MIT EEY-DEF- UND" 
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1005 REM 

iiü REM FFIZTZSZZZZszzs2zcoo ums sanazszooccooocococommummecsenen 

i20 REM 

130 REM  SYMBDLE-STATEMENTS FÜUER DEN CFO484 

130 REM FEST z2z2Zoczessem an nommen 

150 REM 

i£E0 REM Diese im Listing angegebene Srundstruktur ist als 

176 REM Frogramsmierhilfe fuer Frogramme gedacht, 

150 REM in denen umfangreiche Tastatur- und Zeichendefinitionen 

1970 REM vworkömmen. Speziell die Cursor-Tasten bieten sich 

=00 REM an, umdefiniert zu werden, wobei sie sich dann nicht mehr zum 

z2i0 REM editieren eignen. 

==26 REM Der Trick dabei ist, dasz sich nach Frogrammunterbrechung 

=50 REM Tastatur und Symbole in ihrem Urzustand befinden. Es kann also 

=50 REM ggf. sofort editiert werden, wonach dann das Fröogramm 

=50 REM sowieso neu gestarten werden musz. Andernfalls aber kann es 

=60 REM mit EONT fortgesetzt werden - in diesem Fall werden Tastatur 

=70 REM und Symbole wieder fuer den Frogrammlauf definiert. 

ZEU REM = 

zZ50 REM 10 ON EREAK GGSUE Au0oo 

SO REM ZU GOSUB S00IG 

Si REM 30 „.. Frogramm „.. 

sau REM 

za REM 59757 END 

40 REM 60000 CALL %BEB00: SYMBOL AFTER 255:5T0OP 

350 REM A001 KEY DEF „... 

S&0 REM &0020 SYMBOL AFTER n 

270 REM 66030 SYMBOL .... 

>50 REM &0040 RETURN 

270 REM . 

00 REM ACHTUNG! DIESER AUFBAU IST NICHT GEEIGNET BEI VERWENDUNG VON 

419 REM " UFENDUT:MEMGRY HIMEM-1:CLOSEOUT " " 
Compure mi 
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programme 





Mit dem Spiel Alien Hunter für den Schneider CPC 464 
Super Action-Spiel. 





haben wir erneut ein 


YUAUKUNUM 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


u wi EN 


10 REM Kann EEE EN NH 


11 REM 
12 DIM 
12 REM 
14 REM 
15 REM 


MEERE NER ER RNERE 
ALIEN HUNTER (cc) 'B5S 


by PETER DANES % 
ANDREAS GOEHN 


u DE zu Zu Zu Zu Zu ze; 
u BE Ze Ze Zu Ze Ze Ze; 


re re Are S% 


hiscore (4) ,name# (4) 


Symboldefinierung 


1& SYMBOL AFTER 47 


17 SYMBOL 
18 SYMBOL 
17 SYMBOL 


20 EYM 


21 SYMBOL 
22 SYMBOL 
23 SYMBOL 
24 SYMBOL 
25 SYMBOL 
256 SYMBOL 


BOL. 


27 SYMBOL 49,0,8,8,8,0,8,8,8B 


28 SyM 


BOL 


23 SYMBOL 51,0,56,4,4,56,4,4,56 


»0 5YM 


31 SYMBOL 


32 SYM 


BEN_ 


BOL 


33 SYMBOL 55,0,56,4,4,24,4,5,4 


34 SYM 


35 SYMBOL 


34 SYM 
37 REM 
38 REM 
37 REM 


30 PEN 1:PAPER O:MODE 1:BORDER 15 
41 PEN 3:LBCATE 1,25: PRINT "Alien Hunter“ 


42 FOR 
453 FÜR 


BOL 56,0,28,34,33,28,34,34,28 
57,0,28,34,34,28,2,2,28 
BOL 48,0,29,34,38,8,50,34,28 


Veberschrift 


x4=0 TD 205 STEP 2 
y%=0 TO 16 STEP 2 


189,129,153,165,195,165,153,129,129 
190,0,24,56,195,231,189,165,129 
191,24,60,102,195,231, 
169,5,80,23,213,54,26, 
1987,16,146,84,0,40,70, 
244,0,24,60,255,255,60,60,0 
245,0,24,50,126,126,60,60,0 
246,24,24,60,126,126,60,126,175 
192,36,126,219,255,255,90,129,129 
193,129 ,215,126,90,126,2179,153,195 


50,0,56,4,4,24,32,32,28 
52,0,36,36,36,24,344,4 


53,0,28,32,32,24,4,4,56 
54,0,56,64,64,56,68,68,56 


KANUM 


126,36,0 
40,128 
167,0 


08 SrS Sie SiS Sie are Sr 
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Ziel des Spiels ist, die Ahwehr von außerirdischen Angreifern, die 
die Erde mit Ihren Raumschiffen bedrohen. 


Sie haben nun die Aufgabe, diese Angreifer abzuwehren und die 
Erde vor der Zerstörung zu schützen. Für diesen Abwehrkampf 
steht Ihnen eine bewegliche Bodenstation zur Verfügung, die mit 
einer Laserkanone ausgerüstet ist. Für jedes angreifende Raum- 
schiff werden Ihnen fünf Schüsse zur Verfügung gestellt, die mit 
Power angezeigt werden. Ist es Ihnen gelungen, ein Raumschiff 


abzuschießen, wird Ihnen eine Punktzahl 
von 80 gutgeschrieben. Insgesamt gibt es 
in diesem Spie! 5 Level’s, in denen sich die 
Angreiferzahl ständig erhöht. 


Die Raumschiffe werden durch RND ge- 
steuert. Die Bodenstation }äßt sich wahl- 
weise mit Joystick oder der Tastatur be- 
wegen. 


Noch einige Hinweise zur 
Eingabe des Programms: 


Tippen Sie erst das Vorprogramm 
ab und SAVEN Sie dieses mit 
„ALIEN HUNTER“, 


Anschließend geben Sie das 
Hauptprogramm ein und SAVEN es 
mit „ALIEN HUNTER 2 “ ab. 


Jetzt steht bei fehlerfreier Eingabe 
einem reibungslosen Spielablauf 
nichts mehr im Wege. 
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programme 


44 IF TEST (x%,y%) THEN PLOT xAr219, YAr2+336,3 

45 NEXT 

45 NEXT 

47 REM 

48 REM Abfrage des namens fuer Hiscore-Tabelle 

47 REM 

50 LOCATE 3,11:PEN 2:: INPLT"Wie heissen Sie= "spieler® 

31 nzg=LEN (spieler$): IF nzg>12 THEN 52 ELSE 53 

52 LDEATE 3%,il1:FRINT STRING$ 36," "):G0OTO 50 

DS REM 

54 REM Hauptmenue 

55 REM 

55 LOCATE 3,11:PRINT STRING$ 34," ") 
37 WINDOW#2 ,1,40,25,25:PAPER#2 ,2: PEN#2,0: CL5#2:L0OCATE#2, 13,1: PRINT#2, "HI=SCORE=" 
shiscore (0) 
58 LDEATE 2,8:PEN 3:FRINT CHR$(164)3" Peter Danes \" 

5? LOCATE 2,10:PEN S:PRINT "Andreas Goehn /" 

oG LOCATE 18,9:FEN 2:FPRINT"PÄN-SOFT" - 

ol PEN 3:LOCATE 3,14: PRINT "LIiI"z:PEN 1:PRINT"--— Spielanleitung" 

62 FEN 32LGCATE 3,16:FRINT "[2I"32PEN ?=:PRINT "-- Joystick" 

65 PEN 32L0CATE 3,18: PRINT "[II"3:3PEN 2:PRINT "nun keyboard" 

64 PEN 2:LOCATE 3,21:1INPUT"Bitte geben Sie eine Zahl ein= "„zahl 

63 IF zahl>5 OR zahl<i THEN LOCATE 3,21:PRINT STRING${I4," "):GDTO 84 
&5 ON zahl GÜSUR 57,88,89 

67 REM 

58 REM Spielanleitung 

67 REM 

70 FOR yyi1=-320 TO 17 STEP -1:PLOT 1,yyl1,0:DRAW 540, yyi1,0:NEXT yyi 

71 FEN Z5LOCATE 4,8:PRINT”Sie haben die ehrenvolle Aufgabe," 

72 LOCATE 4,9: PRINT"die Erde vor Ausserirdischen zu be-" 

73 LOCATE 4,10:PRINT"schuetzen. " 


74 LOCATE 4,11:PRINT"Mit ihrer Bodenstation E";CHR$ (248) ," 3" 

75 LOCATE 4,12:PRINT"koennen Sie die Ausserirdischen ab-"” 

75 LOCATE 4,13: PRINT"Schiessen, " 

77 LOCATE 4,14: FRINT"Aber nehmen Sie sich in Acht," 

78 LDCATE 4,15: PRINT"denn dis Angreifer schiessen zu-" 

79 LOCATE 4,18: PRINT"rueck. Ausserdem ist ihre Schuss" 

509 LDCATE 4,17:PRINT"zahl begrenzt." 

81 FEN 3:LOCATE 4,19: PRINT CHR$ (189) 5" ";CHRSL190)7,” "SCHRECIFL)E" NSCHRELIID) 5" 
"GCEHREILFTIGEPEN 2EPRINT " sind die Angreifer" 

82 LOCATE 15,21:PRINT"VIEL GLUECK !"sCALL &BB18 

85 FÜR yy1=320 TO 17 STEP -i:PLOT 1,yyl1,0:DRAW 640,yy1,„0:NEXT yyi 

83 GOTO 58 

85 REM 

84 REM Tastenwahl 

87 REM 

883 LEVEL=1:rkey=75: 1key=74: fkey=76:B50T0 73 

87 LEVEL=1:rkey=63; lkey=71: fkey=22 

70 LOCATE 1,5:PRINT ECHR$ (2035: LOCATE 12,8: PRINT CHR# (24) 3 PRINT" Tastaturbelegung 


91 LCCATE 5,11:PRINT"EZI 
72 LDCATE 5,13:PRINT"E[X] Rechts" 

95 LOCATE 5,15: PRINT"EL\NI Fire":PRINT CHR$ (23); 

74 PEN 1:LOCATE 15,193 PRINT"VIEL GLUECK ı" 

95 LDCATE 10,23: PRINT CHR$ (24) 3:PRINT "Bitte Taste druecken !":PRINT EHR# (24335: 
ALL &BH18, 

Y6 rwi1=244:rw2=245:rus=rw2: a=10:b=6:x=5: y=24: 1live=S3: level=0:score=0 

97 REM 

93 REM  Untergrund+Anzeige zeichnen ” 

97 REM i 

100 MODE 0 


Links" 


Be) 
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101 
102 
103 
104 
105 
105 
107 
108 
107 
110 
ve 
ı11 
112 
113 
114 
115 
11& 
117 
118 
i197 
120 
121 
122 
123 
ı24 
125 
12& 
127 
128 
127 
130 
131 
132 
133 
1354 
135 
136 
137 
158 
139 
140 
141 
. 142 
143 
144 
1453 
145 
147 
14B 
147 
150 
151 
i52 


programme 


PLOT 10,10,2:DRAW 54,10:DRAW 54,210:DRAW 10,210:DRAW 10,10 

PLOT 10,210:DRAW 30,245: DRAW 64,245:DRAW 54,210 

PLOT 64,245:DRAW 64,45: DRAW 54,10 

PLOT #4,45:DRAW 576,45:PLDT 54,10:DRAW 585,10 

PLOT 586,10:DRAW 576,45 

PLDT 586,10:DRAW &30,10:DRAW 630,210:DRAW 586,210:DRAW 586,10 

PLOT 586,210:DRAW 576,245: DRAW 576,45 

PLOT 576,245: DRAW 620,245: DRAW 630,210 
WINDOW#1,2,19,1,4: PEN#1 „O0: PAPER#1,1:CL5#1 

LOCATE# „3, 15: PRINT#1 ,"HI-SCORE=";hiscore (0) :LDCATE#1 ,1,2: PRINT#1,"LEBEN=";13 


LDCATE#1 „1,4: PRINT#1 ,"SCORE="3 score: LOCATE#1 ,1,35 PRINT#1 ,"POWER=";power 
LOCATE#1,14,2:PRINT#1 ,"--" 

LOCATE#1 ,14,3:PEN 3: PRINT#1 ‚angreifer 
LOCATE#1,14,4:PRINT#1, 

GOSUB 189 

GOSUB 1974 

REM 

REM Raumschiff bewegung „Schiessen 

REM 

GBTO 135 

LOCATE a,b:PRINT CHR$ (128) 

b=b+0.1: a=INT {RND#S) - l:a=a+rg: IF aid THEN a=4 ELSE IF a>17 THEN a=17 
PEN 1:LOCATE a,b:PRINT RS$ 

IF quw=0 THEN qw=1:50T0 128. 

IF TIME1i=O THEN IF RND>0.87-(1#0.017) THEN TIMEI=1 
IF TIME1i>O THEN TIMEi=TIMEI+1 

IF TIME1i=7 THEN 128 ELSE 135 

SOUND 2,45,15,15,0,5,31 

MOVE 32% 1A-1) „ (25-B) #16-1: DRAW 32#(A-1),48,2 

MOVE 32#1A-1) +31, (25-8) #16-1:DRAW 32#(A-19+31,48,2 
MOVE 32#tA-13 ,„ (25-B) #154=-1:DRAW 32#(A-1) ,48,0 

MOVE 32# (Ar13+31, 125-B} #161: DRAW 328 (A-1)+31, 48,0: TIME1=0 
IF A=X OR b>=20 THEN 171 ELSE 135 

REM 

REM Bodenstation bewegen 

REM 

iF INKEY{rkey)=5 THEN x»=x+1 

IF INKEYilkey)=0 THEN x=x-1 

IF x<4 THEN x=4 

IF x>17 THEN x=17 

LOEATE »—-1,y:PRINT CHR$t128) 

LOCATE »+1,y:PRINT CHR#{128) 

PEN 13:LDCATE x»,„y:PRINT CHRE Irws} 

IF rws=rwl THEN rws=rwZ ELSE IF rws=erwZ2 THEN rwserwi 
GOSUB 148 

soro 121 

REM 

REM Bodenstation schiessen 

REM 

IF INEKEYtfkey)<>0 THEN RETURN 

SOUND 2,46,15,15,0,3,31 

te :LOCATE#1, 7,3: PRINT#1 ‚power: IF power<i1 THEN power=300: E0SUB 171 


»ELSE 153 


153 
154 
157 
154 
157 
158 
157 
150 
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LOCATE x,y:FRINT CHRS 246) 

MOVE 32# (x-1)+12, (25-y)#16+15: DRAW 32% (2-1) +12, (25-b)#16+7, 1 
MOVE 32%# (x-1}3+12, (75-y}#15+15: DRAW 328 tue1}trtlZ, (25-b) #16+7,0 
PLOT 44,45,2:0RAW 576,45,2 

IF x=a THEN GDSUB 160 ELSE RETURN 

RETURN 

REM 

REM Raumschiff getroffen 


GQGemosufs miP 005 


programme 


161 
162 
153 
154 
165 
166 
167 
158 
169 
170 
i71 
172 
173 
ı74 
175 
176 
177 
i78g 
179 


190 
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181 
182 
183 
184 
185 
186 
197 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
1997 
200 
201 
202 
203 
204 
‚15, 
205 
206 
207 
208 
209 
210 


REM 

PEN 3:LOEATE a,bsPRINT EHR$(188) 

SDUND 2,200,30,7,1,2,31:FOR ZEIT=1 TO SOO:NEXT 
LOCATE a,b:PRINT " "sa=slü:rb=&:angreifer=angreifer-i 
LOCATE#1,13,3:PRINT#1 „angrei fer :qw=Ü: score=score+B0 
LOCATE#1,7,4: PRINT#1 score 

IF ANGREIFER<1 THEN 60T0 187 ELSE 1597 

GÖSUB 201 

RETURN 

REM 

REM Bodenstation getroffen,Power zu ende,Angreifer zu tief 
REM 

PEN 35LOCATE x,y:FRINT CHR$ (187) 

SOUND 2,200,30,15,1,2,31:FOR ZEIT=1 TO S500:NEXT 
LOCATE x ,„y:PRINT " » 

PEN 1:LOCATE a,b:FRINT " 
x=5:y=24:a=10:b=4:live=live-i 

LOCATE#1 ,1,2:FRINT#1 ,"LEBEN=":live 

IF live<i THEN 181 ELSE 118 

REM 

REM Ende des Spiels 

REM 

IF level>=& THEN 184 ELSE 184 

FEN 2:LOCATE 5,8: FRINT'"Sie haben es" 

FEN 2:LOCATE 4,9: PRINT"geschafft !!":BOSUB 734 
LOCATE#1,7,9: PRINT#1 „score 

FEN Z:LOCATE 7,11: PRINT"GAME DVER”:FOR zeit=1 TO 5000:NEXT zeit:GUSUB 210 


GOTO 4c0 

LEVEL=LEVEL+1 

GOSUB 194 

LDCATE#1 ,13, 3: PRINT#1 ,angrei fer : LOCATE#1,7,3: PRINT#1," " 
GOTD 158 

REM 

ken Raumschiff auswahl 

REM 


IF LEVEL=1 THEN RS$=CHR# (193) =: ANSREIFER=15: power =75: RETURN 

IF LEVEL=2 THEN RS$=CHR& (189) : ANGREIFER= =20: pmwer=100: RETURN 
IF LEVEL=3 THEN RS$=CHRE$ (191) :ANGBREIFER=20; poner=150:RETURN 
IF LEVEL=4 THEN RS$=CHRE$ (197): : ANGREIFER=40: power=200: RETURN 
IF LEVEL=5 THEN RS$=CHR$ (190) = ANGREIFER=55: power =265: RETURN 


‚IF LEVEL=& THEN 183 ELSE IF level<s=1 THEN 202 


GOSUB 74& 

FÖR zeit3=1 TOD 1000+NEXT zeitä j 

LOCATE 7,10: BORDER 4,24: FRINT "LEVEL "z;level:50UND 1,365,15,15,5: SOUND 1,123 
12,1 

FOR zeit=i1 TOD ?ocos NEXT zeit:BORDER O:LOCATE 7,10:2PRINT STRING$(9," 
RETURN . j 

REM 

REM Hiseore-Tabelle 

REM - 

FOR »x1=1 TO 320:PLDT x»*1,1,0: DRAW x»x1,400,0:FL0OT 640—xx1,1,0: DRAW s40-xx1,4 


O0O,05NEXT xx1 


211 
z12 
212 
z2i4 
215 
216 
217 
218 
217 
220 


EALL &BBOFS:IPEN i:t=0:IF scoreihiscore (4) THEN 220 

IF scoreshiscore (3) THEN hiscore (4)=score: A nz GOTO 220 
If scoreshiscore (2) THEN t=1:50T0 216 

IF scorefhiscore(i1)} THEN t=2:60TD 71& 

IF score<hiscore (0) THEN t=Z ELSE t=4 

FOR i=1 TOt 

hiscore (5- -i)shiscore (4- -i’rnamet (5-i)=namet(4-i) 
NEXT i 

PEN i1:hiscore (4-t)=score:names (4- -t’=spieler$ 
MODE 1:LOCATE 3,4: PRINT"DIE HIGH-SCORE-TABELLE" 
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221 LOCATE 3,2:PRINT"Ihre Funktzahl 


report 


:"sscore 


’ Name" 


"21+1=:1LDEATE 16-INT (LOS (hiseoreti)+1)/LOB(10)), i0+i1 PRINT hiscore(i) 


22? LOCATE 1,8:PRINT"Platz ! Punkte 

225 PRINT STRINGS (40, 159): LDCATE 1,10:FOR i=0 TD 4 
224 PRINT" 

:LOCATE 22,10+Hi:PRINT name# (i) 

225 NEXT i 

225 


227 
228 
229 
230 
231 
232 
225 
2384 
235 
255 
237 
2358 
237 
240 
241 
242 


FAT 
En 


244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 


Teil 1: 


1. Erstellen einer lauffähigen Patch Diskette 
2, So lesen/beschreiben Sie Diskelten eines 
speziellen Rechners 


FEN 3:LOCATE 1,14-t:PRINT ECHR$(243) :LOCATE 1,20 


PEN 1:PRINT CHR# (24): 
CALL &EBi1B 
FRINT CHR#124); 
LOCATE 1,25:FOR 
PRINT CHR#{10)3; 
NEXT scroll 
RETURN 

REM 

REM 

REM 

FOR o=-1 TO 5 
FÜR a=-170 TOD 750 

SDUNP 1,8,1,15 

NEXT 

FOR a=2750 TOD 170 STEF „1 
SOUND 1,8,1,15 
NEXT 

NEXT 

RETURN. 

REM 

REM 

REM 

LOEATE x,yaPRINT " " 


scroli=1 TO 25 


. Siegerfanfare 


FPFmer tanken 


PEN 2:LOCATE 10,24: PRINT CHR#& (245) 
FOR pr=2 TO 20:FEN 1:L0DCATE pr ,„BsPRINT rs#$ 


SCUND 1,200- (5#pr},15,5,1 


FOR zeiti=i TO SO0:NEXT zeiti1:LDCATE pr ,B:PRINT " " 


IF pr=10 THEN 255 ELSE 267 
LOCATE 10,8:FRINT rs# 

FLOT 304,272,4: DRAW 304,32,53 
PLOT 303,272,4:DRAW 303 ,32,4 
FOR tanken=1 TO power 

SDUND 1,140,15 
LOCATE#1,7,3: PRINT#1 „tanken 
NEXT tanken 

FOR zeit2=1 TO 1000:NEXT zeit? 
PLOT 304 ,272,0: DRAW 304,32,0 
PLOT 303,272,0:DRAW 303,32,0 
PLOT 6&4,45,2:DRAW 576,45, 


‚LOCATE 10,B: PRINT " " 


NEXT 
LOCATE 10,24:PRINT " " 
RETURN 


Teil 2: 


:LOCATE 10,23:FRINT"Bitte Taste druecken 


3. Die einzelnen Menüs und Ihre Aufgaben 





























Para-Diskmanager für 
Schneider GPG 464 


Der Para-Diskmanager verbindet den Schneider GPC und die Floppy 
Disk Station F1-S/D fast mit dem gesamten Rest der CPM 5.25” Ho- 
me- und Personal Computerwelt. 

Die Aufgabe, Dateien wie KAYPRO Il, EPSON QX-10, OSBORNE . 
lesen, wird mit PARA wesentlich vereinfacht. 





PARA bietet menügesteuert folgende 
Möglichkeiten: 
- direkte Installation mitgelieferter Parametersätze 


Es wird im Inhaltsverzeichnis der Sy- 
stemdatei nachgesehen, ob das zu in- 
stallierende Format vorhanden ist. Dann 
geben Sie den Namen ein und ihre Dis- 
kettenstation F1-S/D kann die Disketten 
des angewählten Rechners lesen und beschreiben. 


- direktes Kopieren auf Kassette 

= esiitieren der logischen und physikalischen Disket- 
ienparameier 

- erstellen eigener Parametersätze 


Außerdem befinden sich auf der Diskette noch zwei.Programme, die 
‘es erlauben, die Directory auf 128 bzw. 256 Einträge zu vergrößern. 
Das mitgelieferte Handbuch umfaßt drei Teile. Wir geben an dieser 
Stelle einen kurzen Überblick über die behandelten Themen in die- 
sem Buch: 


Teil 3: 
Die Directory Erweiterungen - Wie Sie die ”, 


rectory auf 128 oder 256 Einträge ausbaue I> Ä 


Ber Disk-Parameter Editor 


Erhältlich ist der Disk-Parameter zu einem Preis von 58,-- DM bei Vortex Vertriebs GmbH, 7106 Neuenstadt 5 
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hardware 





Während die Schneider Computer Divi- 
sion vor einigen Monaten den CPC 664 als 
Nachfolger bzw. Ergänzung zum CPC 464 
vorgestellt hat, gibtes bereits einen „NEU- 
EN“, den GPC 6128. In unserer letzten 
Ausgabe haben wir ja schon eine kurze 
Hardwarevorstellung vorgenommen. 
Vom Außeren unterscheidet sich der GPG 
6128 vom CPC 664 durch eine erheblich 
kleinere Tastatur die komplett überarbei- 
tet wurde. Der Cursor-Block wurde durch 
Tasten in Normal-Größe ersetzt und auch 
die „CONTROL’-Taste fand unten links ei- 
nen neuen Platz. Auch das Disc-Drive ist 
ergonomischer gehalten und paßt sich 
sehr gut in das Gesamtbild ein. 

Der Speicherplatz hat sich auf 128KByte 
erhöht, wovon über 100 KB frei verfügbar 
sind. Die Kompatibilität zum CPC 664 hat 
aber trotz der Hardware-Erweiterung 
nicht gelitten. Sowohl Basic-Programme 
als auch Programme unter GP/M 2.2 sind 
weiterhin lauffähig. Das sind Eigenschaf- 
ten, die dem Anwender erhebliche Vorteile 
bringen, Software gibt es für den 6128 
auch genügend. So bietet Schneider 
selbst einige Profi-Programme an und be- 


.kannte Software-Häuser haben bereits 


54 


neue Software entwickelt. 

Mit zum Lieferumfang des CPC 6128 ge- 
hört aber neben CP/M 2.2, auch CP/M + 
Version 3.1. Diese wesentlich benutzer- 
freundliche Version von GP/M ermöglichst 
dem Einsteiger einen schnellen und si- 
cheren Beginn mit der Computerwelt. Da- 
neben wird auch das GSX-Grafikpaket 
mitgeliefert, so daß dem CP/M Benutzer 
die Grafikmöglichkeiten zur Verfügung 
stehen. 

Die folgenden technischen Daten geben 
nochmals einen Überblick über die Mög- 


lichkeiten und den gesamten nz 


fang des CPC 6128. 


Technische Daten 


z 80 CPU - der weltweit meistverwendete Prozessor in dar 
Mikrocomputerklasse, mit dem ein Großteil der GP/M2.2* und 
CP/M Plus* Software genutzt werden kann. 

128 K RAM- Arbeitsspeicher, davon über 100 KB frei verfügbar; 
der »CPG 6128« stellt somit ausreichenden Speicherplatz 
selbst für die größten CP/M-Anwendungen (bis max. 61 KB) zur 
Verfügung. 


Tastatır 

Echte Schreihmaschinen-Tastatur mit 74 Tasten, Ziffernblock, 
Cursor- und Copy-Gursor-Tasten, große Entertaste (Eingabe), 
Umschalt-, Feststeli-, Tabulator-, Lösch-, Kontrolltaste sowie 
Escape und Gleartaste. 32 freiprogrammierbare Funktionsta- 
sien. Deutsche Tastaturbelegung und Zeichensatz softwaren- 
mäßig codierbar. 


Integriertes NiskeHtenlaufwerk 

Format 3"; Kapazität 180 Köyte formatiert, Übertragungsrate 
250 KBit/sec. 

Aufzeichnung einseitig, doppeite Dichte: DATA-, IBM- und VEN- 
DOR-Format. 

Diskette kann beidseitig benutzt werden (insgesamt 360 KB). 
Mitgelieferte Systerndiskette enthält GP/M2.2*, CP/M Plus” mit 
Grafikprogramm GSX“. 


Manilor — 

Wahlweise ist ein Grür- oder Golaur-Monitor im Lieferpro- 
gramm der »CPC6128« enthalten; 20-40-80 Zeichen/Zeile 
Standard; 25 Zeilen darstellbar; kochauflösende Grafik mit 
540 x 200 Punkten; 27 Farben wählbar; mit eingebauter 
Stromversorgung für den »GPCB128«. 


Basic - 
Anerkanat hervorragendes Schneider-Basic mit nahezu 200 
Befehlen. 


Erweiterter Zeichensatz - 
256 Zeichen über Tastatur direktahrufbar; individuelle Zeichen 
programmierbar. 


Fenster - 

Bis zu acht Fenster für Textund 1 Fenster für Grafik Können de- 
finiert werden. 

Ton - 

Der »GPG 6128« verlügtüber 3Kanälezu je 8 Oktaven; Variatio- 
aen der Lautstärke, Tonhöhe und Tonhülikurven; zusätzlich 
können 16 Geräusche dem SCUND-Befehf hinzugefügt werden. 


Auskaumäglichkeit 

- Zweites Diskettenlaufwerk 

- Centronics-kompatibler Drucker 
Serielle Schnittstelle, Mederm 
Joysticks 
Gassettenrecorder 
ROM-Erweiterung 


Externe Anschlüsse 
PCB-Anschlüsse für zweites Disketier-Laufwerk, allgemeine 


Compute mi 


Erweiterung ung Gentronicskompatiblen Parallel-Drucker. 
Ipoliger Anschluß für Joystick, Spolfger Anschluß für RGB- 
Monitor, Spolige DIN-Buchse für Cassetten-Recorder, 3,5-mm- | 
Buchse für Stereo-Ausgang, 5,D-mm-Buchse für 5Y DC Strom- 
versorgung, Spiralkabel mit 5,0-mm-Stecker für 12 VDE 
Stromversorgung {Stromyersorgungen jeweils aus Monitor). 


Abmessungen ' 
mm 


Tastatur 
CTM 644 
GT65 
NLO401 
FD-t 


Breite Höhe 


16 5D 
375 349 
305 315 
300 70 
105 73 


Tiefe 


175 
365 
335 
190 
230 


Gewicht (kg) 


Tastatur 
CTM&44 
GT65 
NLQ 01 
FD-1 


Seftware 

Der »CPC 6128« bietet Ihnen eine Vielfalt von Betriebssyste- 
men, Pregrammiersprachen und Anwendungsprogrammen. 
Eine keine Auswahl haben wir für Sie zusammengestelit; 


Aktuelle Schneider-Software für den 
»LPG 6128« 


Anwendengen j 
@ össchicklichkeits- und Adventure-Spiele 
® Lernpragramme 
® Terminal-Star 
Kommunikations-Software 
® TexPack 
professionelle Textverarbeitung mit Adreß- und Dateiver- 
waltung 
© LomPack 
kommesrzielles Anwendungspaket; 
- Lagerhaltung 
- Aufragsbearbeilung 
- Fakiurierung 
- Buchhaltung 


Programmiersprachen 
@ BASIG 

® ASSEMBLER 
@ PASCAL 

® Dr. LOGO* 


Betriebssysteme 


® AMSDOS 
@ CcPM2.2* 
® CP/M Plus” (GP/M3.D) 
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‚Sensationell 


- Der Joyse (PCW 8256) ist ein Personal- 
computer mit 256 KByte RAM der seri- 
enmäßig mit einem Bildschirm, Drucker, 
3’"Diskettenlaufwerk und einer deutschen 
Schreihmaschinentasiatur zum Gesamtpreis 
von 2.490,-- DM ausgestattet ist. Als Soft- 
ware erhält man neben GP/M+, Dr. Lego, 
Mallard exented BASIC, GSX Grafikpragramm 


auch ein komfortables Textverarbeitungspro- 


gramm in deutsch. Damit sind dem Anwen- 
der wohl Tür und Tor fürs Computerleben 
geöffnet. Dies ist eine Ausstattung, von 
der man zu solch einem niedrigen Preis 
bisher wohl nur träumen konnte. Dieser 
Traum wird aber schon in absehbarer Zeit 
Wirklichkeit und wir sind schon sehr auf 
die Präsentation dieses Personalcompu- 
ters in München gespannt. 

Nach ersten Informationen soll der Bild- 
schirm des PCW 8256 mit32 Zeilen und 90 
Zeichen pre Zeile eine wesentliche Erweite- 
rung der Informationen ermöglichen. Im 
Monitor integriert ist ein 3”-Laufwerk mit 
250 KB Speicherkapazität pro Seite, Der Platz 
für ein weiteres Laufwerk ist bereits vor- 
gesehen. Die Tastatur wurde um verschie- 
dene Funktionstasten erweitert und der 


Nachdem der CPC 6128 erst wenige Wochen als ist, wird die 
Schneider Computer Division auf derSYSTEM 85 in München 
Ihr jüngstes Kind, den Joyce vorstellen. 


PCW 8256 der Personalcomputer mit 256 KByte für nur 2.490,- 


mitgelieferte Drucker hat eine Geschwin- 
digkeit von max. 90 Zeichen pro Sekunde. 
Besonders auffallend ist die Stromversor- 
gung aller Hardware-Komponenten. Für 
den Schneider „JOYCE“ benötigen Sie nur 
ein Netzteil für den Betrieb. 

Als Vorinformation soll es an dieser Stelle 
genügen, da weitere wichtige Informatio- 
nen z. Z. noch nicht vorliegen und von un- 
serer Seite nichts Falsches berichtet wer- 


den soll. Eins dürfte jedoch feststehen: Mit 
dem derzeitigen -Computer-Angebot der 
Fa. Schneider und dem bemerkenswerten 
Preisleistungsverhältnis dürfte sich eini- 
ges auf dem Mikrocomputer-Markt tun. 
Da wird selbst der Gomputer-Crack schon 
erhebliche Schwierigkeiten haben, die 
richtige Hardware für seinen Bedarf zu fin- 
den, lockt döch der günstige Preis zum 
Kauf eines größeren Computern. 





Wurm 


ENDLICH IST ER DAN! 


Der CPC-Synthesizer für den CPC 464 


Musizieren mitdem CPG 464 istnun keine 
langwierige Programmierarbeit mehr. 
Der CPG-SYNTHESIZER macht das 
Musizieren zu einer spielerischen Angele- 
genheit. _ 

Sowohl für den Laien, ob jung oder alt, als 
auch für den.professionellen Musiker. 
Das Programm verbindet eine bisher noch 
_ nicht dagewesene Kombination von Mög- 
lichkeiten. 

Der GPC-SYNTHESIZER macht aus dem 
CPC 464 einen Schlagzeugcomputer. 
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Er ersetzt die elektonische Heimorgel im 
privaten Haushalt. 

Der EPC-SYNTHESIZER fungiert als 
MISCHPULT für Ihre Stereo-Anlage.. 
Instrumente können selbsttätig konstru- 
iert werden. 

Neuartige Tonleitern lassen sich erstellen. 


Der CPG-SYNTHESIZER ist Composer und 


Orgel gleichzeitig. In beiden Fällen stehen 
9 verschiedene Parameter zur Verfügung. 
Sig haben jederzeit 15 unterschiedliche In- 
strumente und Vibrateren zur Hand. 


Compube miß 


Für den musikalisch Interessierten: 

Backgroundkomposition, Playback, Be- 
gleitung zur Orgel, Kanon, Staccato, sind 
nur kurzumrissene Möglichkeiten, die Ih- 


‚Das WEUESTE AUF DEM SOFTWARE-MARKT!! We Sc # v5 Kr: 


nen der CPC-SYNTHESIZER für Ihren CPC. 


464 bietet. 
Das Programm beinhaltet 96 Befehle. 
Eine ausführliche Beschreibung des CPC- 
SYNTHESIZER'S erfolgt in 
Ausgabe. 


Hersteller und Vertrieb: -cameSoft- 


der nächsten 





al) 


programme 


für Schneider PC 464 








Die feindlichen Invasoren Daimos sind in den Luftraum der Erde einge- 
drungen, Mit Hilfe einer Raketenbasis müssen Sie nun den Angriff der 
feindlichen Ufos stoppen. Pro Runde sind sechs Angreifer auf dem. 
Bildschirm. Jeweils zwei Raumschiffe befinden sich in einer Bild- 
schirmzeile, so daß alle Raumschiffe auf drei Bildschirmzeilen verteilt 
sind. Die Angreifer bewegen sich waagerecht von links nach rechts 
und umgekehrt. Sobald der rechte oder linke Bildschirmrand erreicht 
ist, setzt das Raumschiff seinen Flug eine Reihe tiefer fort. Ist auf diese 
Weise die unterste Bildschirmzeile erreicht, wird das Spiel automa- 
tisch beendet. Steuern können Sie Ihre Raketenbasis mit dem Joy- 
stick. 














.41 REM BEREITETE RITTER IHIEHIIRIISIHIAHISIÄIHIHIHIIHIISIIIH ASIEN 


2 REM #xR.#%* DEMON-ATTACK RRANHE 
3 REM un H# Written 1985 by EEREHERRR 
4 REM #ur0r% GTTFRIED SCHMIDT RER 


5 REM ERREEEIEINIRERNERRESITIIEISHIOSIGHIISIHIHIISIHIBISIHIRHIIIHIHIRISIIHIHIIHIHIHIRIHISSHHISIIHI SHINE 
ö [2 

7: 
B [2 

10 BOSUB F40 

=0 IF FEEK(&ASSBI<>REI THEN SYMBOL AFTER 199 

30 DATA dd,21,70,21,16,06,dd,7e,00,fe,00,-4,75,32,dd,68,02,7d,fe,16,02,2d. .2,3e 
40 DATA ff ,52,0f „a2,c9,dd,66,01 ,d5,85,cd,75,bb,3e,20,cd,5d,bb,e1,dd,7e,06,fe,02 
50 DATA ©2,56,32,7C,1f8,01,c2,52,a2,2c,3e,02,dd,77,00,03,66,32,25,03,66,22,7c ,fe 
&0 DATA 194,02,65,a2,2c,38,01,dd,77,00,03,66,22,24,dd,74,01,dd,75,02,cd,75,bb,3e, 
cA,cd,S5d,bb,d1,01,03,00,44,09,15,22,16,32,09,c9 

70 MEMORY &93F00 

"80 FOR i=&A210 TO &A?27F 

90 READ as 

100 POKE i,VALU"&"+a$) 

110 NEXT i 

120 DATA 26,02,25,2e,156,3e,40,32,0f,a0,cd,09,20,32,00,32,0f ,20,26,03,25,2e,16 
130 DATA ed,09,80,32,76,9# ,32,e9,9# ,c9,cd,1a,bc,16,02,01,00,31,d5,e5,c0d,23,30 
140 DATA e1,d1,c.5,01,50,00,09,c1,15,c2,11,30,c9,16,08,1e,04,45,03,77,d1,03,23 
150 DATA 1d,e2,27,20,c5,01,fc,07,09,c1,15,02,25,30,09,c9 ® 
140 FOR i=&9FEB TOD LAOSC 

170 READ as " 
180 FOKE i „VAL("&"+a$) 
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720 


Programme 


DATA 0,0,128,0,0,0,126,0,0,0,128,0,0,564,192,0,0,64,,200,0,0,64,200,0 

DATA 0,0,128,0,4,643,192,4,4,64,192,4,4,192,192,132,4,144,144,132,4,144 
DATA 144,132,4,63,192,4,3,0,128,4,0,0,0,0,0,0,0,0 

adr=&A100 . 

FOR i=0 TO S3:READ a 

FOEKE (adr+i} ,aıNEXT i 

adr=&A140 

FOR i=0 TO 653 

FOFRE tadr+13,05 NEXT i 

DATA cd,eH, GE, 352,00,32,0f ,a2,20,10,22,33,07 ,a?,fe,ff,c8,3e,00,32,77,32,3a 
DATA #0,a2,fe,01,c0,32,f1,22,67,38,#2,22,6#,16,.04.d5,e5,cd,75,bb,3e,20.cd 
DATA Sd,bb,e1,7d,fe,01,02,32,335,32,00,32,70,32,d1,c9,2d,e5,cd,75,bb,cd,50 
DATA -bh ,fe,c8,ca,5b,335,3e2,c9,cd,5d,bb,e1,d1,7d,32,72,32,15,c2,26,33,c9,el 
DATA d1,dd,21,70,31,01,03,00,15,05,7c ,dd,be,01,02,80,23,7d,dd,be,02 

DATA c2,80,43,358,00,0d4,77,00,3e,01,32,73,a7,16,01,dd,09,15,0c2,658,33 

DATA 3e8,00,532,70,32,c9,c9 

FOR i=&.A300 TO &ASSC 

READ a# 

FÜKE i ,VALC"%"+aF) 

NEXT i 

SYMBOL 201,0,8,8,20,8,20,0,0 

SYMBOL 202,137,66,4,17,128,36,66,129 

SYMBOL 203,1,74,32,8,2,64,8,1372 

ENT 1,5,20,1,10,15,2,5,71,3 

ENT 2,10,3,1,2,-2,1,5,15,1 

hsc=0 

sc=0ra=11:POKE %9FFB,„a:FOKE RYFEF.aswesü:lev=-lrıleve=0 
adr=&AlFOsreir=rliev:FOR i=1 TO 6 

POKE (adr+2),INT(rei) 

rei=srei+0.5:x=INT (RND#1&)+2:5POKE tadr+1),x 

IF x>=10 THEN y=1 ELSE y=? 

FOKE (adr) ,ysadr=adr+3:NEXT i 

we=ne+t1:1IF we=7 THEN we=i 

lev=lev+tisleve=sleve+ti: IF lev>=% THEN lev=fF 

MODE O:INK O,0:PAPER OÖ: BORDER © 

INK 1,&8:INK 2,24:.INK 5,1:INK 4,11:1INK 5, (werlZ2):PEN 5 

INK 5,24: INK 7,6 

ON we GOSUB 590 ,800,610,620,630 ,640 

GOTD &50 

SYMBDL 200,8,28,42,127,34,127,20,0:RETURN 

SYMBOL 200,0,129,90,36,219,36,70,129:RETURN 

SYMBOL 200,36,24,60,90,255,255,90,129: RETURN 

SYMBOL 200,0,129,90,680,219,60,90,1295RETURN 

SYMBOL 200,60,102,219,126,125,219,102, 50: RETURN 

SYMBOL 200,8,28,62,107,127,54,93,73:RETURN 

LOCATE 7, 10: PRINT"LEVEL"; leverENV 1,3,3,1eSOUND 1,50,30,5,1 
SOUND 1, 53, 50,5,1250UND 1,47,30,5,1: SOUND 1,36, 70,6,i 

FOR i=i1 TO 1500: NEXT i: CLS:LOCATE 2,253: PRINT sc i 
LOCATE 15,285:PRINT hsc 

zae=0: POKE SAZFO,O: DAL &AFOO 

IF a>1l THEN IF JOY(O3 AND 4 THEN a=a-2 

IF a<19 THEN IF JOYtO} AND ES THEN as=a+z 

IF PEEK (&AZFOI=O THEN IF JOY{iG} AND 1& THEN FOKE SAZFO,1:POKE &AZF2,L15:POKE. 


SA2F1,PEEKt&IFEFI SOUND 2,12,12,7,0,2 


730 


POKE &YFFB,3a 


‚740 CALL EA300: IF FEEK (&A2ZOF}=255 THEN B9TO 850 


' 750 
‚760 


IF FEEK {&A2F3)=1 THEN FOKE &A2F3,0:60T0 770 
E0TO 700 " 


: 779 x=PEEK (KA2Fi) 2 yePEEK [RADFFI-1 
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780 
7F9 
O0 
Sio 
320 
83G 
540 
859 
LEF-16) 
870 
E30 
E70 
700 
910 
920 
930 
740 
750 
FO 
Y70 
930 
990 
ein.Gelingt es einem" 


LOCATE x ,yzPRINT" 


GSOTD 700 


INK 0,0: INK 1,8:PEN 1 


FOR i=1 TO 1300: NEXT i 


CALL &BBOS:CALL &BB18 
CLS:G0TO 460 


1000 PRINT"der Eindringlinge, den Erdboden zu 


eendet,." 
1010 
eine 
1020 
VIEL 
1030 
1040 
1050 
1080 
1070 
1080 
10909 
1100 
1110 
1120 
1130 


An 
GLUECK" 


CALL &BBOS 


SOUND 2,3*(c/2) „b#2 
WHILE SQ11}>127s:WEND 


NEXT i 
e=2:NEXT 1:60T0 1070 


MODE i1:INK O,12INK 1,24: INK 7,0: INK 
LBCATE 15,1:PRINT"DEMON-ATTACK" 
FEN 2:PRINT=SPRINT"Verteidige die Erde gegen die Angreifer aus dem Weltraum!" 
PEN 1:PRINT:SPRINT"Die Invasoren von Daimos dringen in den Luftraum der Erde 


DATA 60,10,60,10,60,20,56,20 


LOCATE »,yzPEN Z:PRINT CHR& (207) 

SDUND 1,4,55,7,0,1,123FOR i=1 TO 12sPEN 7 
LOCATE x,y=PRINT CHRS(203 :LDCATE Ray 
PEN &:PRINT CHR${202):NEXT i 

"PENS 

sc=se#+i0:LDCATE 2,25: FRINT scızaeszae+l 
IF zae}=& THEN zae=0:CL5:60T0 470 


SGUND 1,10,60,7,0,1,13:SQOUND 2,60,60,7,0,2,16 
ELS:FOR i=1 TD 80: INK 0,INTCRND#ZU)#+1:NEXT i 


LOCATE 5,8: PRINT"GAME MVER" 
IF sc>hse THEN hsc=sc:LOCATE 2,9:PEN 2:PRINT"NEUER HIGH SCORE": 
LOCATE 1,105 PRINT scya "PUNKTE" 
LECATE 10,12: PRINT"Neues Spiel?":LOCATE 7,14: PRINT"Taste Druecken” 


PRINT"Die Angreifer kommen in Wellen zu je 4 Stueck. 
griffswelle abzuwehren,so startet die 
PRINT"Steuern kannst Du Deine Basis mit dem 


PRINT"Zum Starten Taste druecken" 


IF INKEYS<>"" THEN RESTDRE: RETURN 


S5,6,13:PEN 3:PAPER O:BORDER 6 


erreichen, so ist das Spiel b 


Ist es Dir gelungen, 


naechste etwas tiefer," 
Joystick. ":PEN 3:PRINT:PRINT" 


„50,20,50,60,60,100,60,10,60,10,50,20,56,20,50 
DATA 20,50,40,67,100,60,10,60,10,60,20,63,20,80,20,89,40,80,110 

c=4:FOR 1=1 TO 2:RESTORE 1050:FüR i=1 TO 21 
READ a,bz:50UND 1,a*c,b*2 





DISCSHOW ist ein kleines BASIC-Pro- 
gramm, das es ermöglicht, im DIREKTZU- 
GRIFF von der Diskette zu lesen und da- 
rauf zu schreiben. Einzelne Datenblöcke 
können in den Speicher des Computers 
eingeiesen werden und nach dem Verän- 
dern wieder auf die Diskette zurückge- 
schrieben werden. Diese Art Datenzugriff 
ist bei dem SCHNEIDER-CPC 484 nur von 
Maschinensprache aus zu realisieren. 
Deshalb steht am Programmbeginn ein 
kleines 


das in den Speicher „gepokt“ wird. 
Nach dem Start des Programmes wird 
zuerst abgefragt, in welchem Format die 
Diskette, die sich im Laufwerk befindet, 
beschrieben wurde. Geben Sie nun bitte 
den entsprechenden Anfangsbuchstaben 
ein: 

Yfür VENDOR BD für DATA-ONLY C für CP/M 
I für IBM 


Danach muß der Sektor und der Trackein- 


laschinenspracheprogramm, | gegeben werden, von dem die Daten gele- 


Compube mit 


sen werden sollen. 

Von der Diskette werden 512 Bytes in den 
Speicher des Computers eingelesen, die 
entweder in Form eines Hex-Dumps oder 
als ASCII-Zeichen auf dem Bildschirm 
ausgegeben werden. 

Haben Sie zuerst die ASCII-Ausgabe ge- 
wählt, kann durch Drücken einer beliebi- 
gen Taste in den Hex-Dump-Ausgabemo- 
dus geschaltet werden. In diesem Modus 
kann der Speicherinhalt durch über- 
schreiben der Ausgabestelle und ein an- 
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schließendes ENTER geändert werden. 
Wenn eine Ausgabestelle geändert wird 
die sich nicht am Anfang einer Zeile befin- 
det, müssen die vorherigen Ausgabestef- 
len mit COPY „überfahren“ werden, damit 
sie bei dem LINE INPUT mit eingelesen 
werden. 

Soll der Speicherinhalt wieder zurück auf 
die Diskette geschrieben werden, so drük- 


ken Sie bitte am Anfang der Zeile die „Pfeil 
nach oben“-Taste (geshiftet: Pfund) oder 
den Klammeraffen, und dann ENTER 
Nun wird der Speicherinhalt an dieselbe 
Stelle auf die Diskette geschrieben, von 
der er gelesen wurde. : 

Wird nur die ENTER-Taste gedrückt, 
springt das Programm wieder an den An- 


‚fang und verlangt nach der Eingabe des 


10 ° "DISESHOW 30.07.85 by J.-Holger Lange 


IF SEK>S5+7 THEN SEK= 


IF i$="a" OR isern" 


IF A$="" THEN 50 


FOR 1=&7090 TO &90B4:READ R:POKE I,R:NEXT 
DATA 353,175,144,205,212,1988,208,34,176,144,121,50, 178,144,30,0,58,179 
DATA 144, 67,58,180, 144, 79, 33,0,128,223,1756,144,701, 132, OÖ, 0, o,1 193 
MODE 72: LOCATE 1, 3: PRINT "Kitte en Sie das Format der Diskette an" 
LOCATE 1,5: INPUT "V=VENDOR 
"LOCATE 1,7: INPUT "Welcher Sektor soll gelesen werden £1-9] "usak 
LOCATE 1,9: INPUT "Welcher Track soll gelesen werden [0-39] "ıfra 
IF esz"g" OR et="n" THEN S=&C0 ELSE IF es="j 
FOKE &JOAF , »B4:SEK= Sekisa IF SEK-5 THEN SEK=5+1 


D=DATA-DNLY E=EP/M 


“a OR e+= ” I “ 


‚werkstatt 


nächsten Sektors und des nächsten 
Tracks. 


Achtung! 


Bevor Sie anfargen mit diesem Programm zu ar- 
beiten, soliten Sie von der eingelegten Diskette 
eine Kopie anfertigen, damit keine wichtigen Da- 
ten zersiörl werden, 


i=IEM ",e$ 


THEN 5=0 ELSE 5=644 


PÜKE %F0B4 ,sek:PFOKE er tra:CALL %7090: CLS:SLOCATE 1,1:c$="0" 
LOCATE 1,1: PRENT"HEX-DUMP oder ASCII 
THEN 310 

LOCATE 1,1:PRINT"Track 


":i$=INKEY$: IF isn THEN 130 


2": TRA,"Sektor 1"rSEK-S: A=k2000 


a=Bafr ai=-PEEK (a+2) #255+FEEK ta+1)-1:L=PEEK (a) 

FOR i=1 TO L STEP 3:1IF PEEK{al+i)=32 THEN 240 
$=h&+CHRE (PEEK (al+i) I +CHRS& (PEEK (al+i+1)) 

NEXT:b$=UFPER$ (b#$) :DIM b1#(50)7:DIM b1 (60) 

FOR i=1 TO LEN{B$) STEP 2: b1#(i/2)=MID$tb#,1,7): NEXT 

FOR i=1 TO LEN{B$) 7/2: B2=ASC ILEFTF (bi 8 ti), 1335 BS=ASCIRIGCHTF (b1F 11} ,1)) 
IF B2>57 THEN B2=B2-7: IF B3>57 THEN B3S=BS-7 
b1{i)=(B2-4B) #16+1B3-48) :POKE &U’FFFti+P#2&6,b1ti) 

NEXT: CLEAR: P=PEEK (&90B5}) : LOCATE 1,PrGOTO 190 

FÜKE &I0OAF,&B5:CALL &I09I0: CLEAR: GOTO ba] 9] 

LOCATE 1,1: PRINT"Track 


FOR i=4 TO 23:2LOCATE 1,1:FOR t=0 TO 75 STEPF 3:LOCATE t+1,i 
d$=HEX$ (PEEK (a+t/3)) IF FEEKl(att/M<1& THEN ds=ch+ds 

PRINT "OOe -"3d$;:NEXT trasatrzöaı NEXT: LOCATE 1,4 
LINE INPUT A$:F=VPO5S {#0}: POKE SYOBS,P: P=P-5;: IF AF="@" DR A$="*" THEN 300 


="; TRA,"Sektor 2"; SEK-S:A=&8000: FOR i=4 TO 23 


LBECATE 1,1:FOR t=6 TO 75 STEP 3:LOCATE t#+1,i 
PRINT CHR$ (1) +CHRS(PEEK (A+T/3)): a 


=a+26: NEXTSCALL &BB05:CL5:60T0 150 





DATENVERWALTUNG 


Dieses Datenverwaltungsprogramm_ er- 
möglicht - im Gegensatz zu den üblichen 
Dateiprogrammen - das Erfassen und 
Verarbeiten von Datensätzen jeglicher Art 
und Länge. Es eignet sich daher hervorra- 
gend zur Eingabe von Rezepten, Hobby- 
tips. und Notizen jeder Art, usw. 
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Das Programm kann bis zu 30.000 Bytes 
mit Daten belegen. Das Suchen und Aus- 
geben der gewünschten Datensätze er- 
folgt mit einer enormen Schnelligkeit, da 
wesentliche Teile des Programms in Ma- 
schinensprache geschrieben sind. 

Ebenso schnell werden nicht benötigte 


Gompufe mir 


Eintragungen gelöscht. Der zur Verfügung 
stehende Speicherplatz wird sehr ökono- 
misch verwaltet, da Leerzeichen am Ende 
einer Zeile und Leerzeilen nicht abgespei- 
thert, sondern durch $Symbofe ersetzt 
werden. Dies bedeutet, daß viel mehr Text 
gespeichert werden kann, als dies auf 


59 


60 


Durch Betätigung der 


programme 


üblichem Wege möglich wäre. 

Im Eingabemodus kann das Programm 
nicht abgebrochen werden. Dies wird 
durch poke 48.622,201 in Zeile 60 be- 
wirkt. Hierdurch: soll ein Programmab- 
bruch durch falsche Eingabe und ein da- 
durch entstehender ‚Datenverlust verhin- 
dert werden. 

Während der Eingabe zeigt ein Cursor die 
augenblickliche Position auf dem Bild- 
schirm an. In diesem Modus laßt sich die 
Tastatur wie eine Schreibmaschinentasta- 
tur bedienen. Die üblichen Cursortasten 
sind außer Funktion. 

irrtümlich eingegebene Zeichen können 
mit der DEL-Taste gelöscht werden. 
ENTER-Taste 
springt der Cursor in die nächste Zeile. 


Aus den oben geschilderten Gründen ist 


es empfehlenswert, eine Zeile auf diese, 


Weise abzuschließen. Durch erneutes 
Drücken der ENTER-Taste läßt sich eine 
Leerzeile darstellen und speichern. 

Der Eingabe-Modus wird durch Drücken 
der Taste „@“ (Klammeraffe) beendet. 
Zur Ausgabe eines Datensatzes auf den 
Bildschirm wird die Eingabe eines Such- 
wortes verlangt. Es genügt, wenn Teile 
irgendeines in dem gewünschten Daten- 
satz vorhandenen Begriffes eingegeben 
werden. 

Nach Bestätigung der ENTER-Taste er- 
scheint der gefundene Datensatz unmit- 
telbar auf dem Bildschirm. 

Das Programm wartet jetzt auf das Drük- 
ken einer beliebigen Taste. Ist ein Daten- 


satz länger als eine Bildschirmseite, so 
werden die restlichen Seiten nach Drük- 
ken einer Taste ausgegeben. 

Sind weitere Datensätze vorhanden, in 
denen das Suchwort vorkommt, werden 
diese anschließend auf den Bildschirm 
gebracht, 

Wird als zu suchender Begriff ein Leerzei- 
chen eingegeben, so erfolgt die Ausgabe 
sämtlicher gespeicherter Datensätze. Dies 
funktioniert allerdings nur bei Datensät- 
zen, die mehr als ein Wort umfassen (was 
allerdings in der Regel der Fall sein dürfte). 
Auch zum Löschen von Datensätzen wird 
nach einem Suchwort gefragt. Gelöscht 
wird dann der erste Datensatz, in dem das 
Suchwort gefunden wird, Anschließend 
kehrt das Programm zum Menü zurück. 
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10 REM #* DATENVERWALTUNG ** 
Z0 REM B Y IUERGEN HESSE 
30 REM 41030 RATINGEN 
40 REM 
530 MEMDRY BI99:5DSUR 1000: r=2 
60 FOEE 10020,35:F0OKE 10021 ,&54:FOKE 10023,353:POKE 48422,201 
70 ELS 
80 FRINT "##* BDBATENVERWALTUNG ##" 
90 p=(40-LEN tc3) ) \2:FRINTSPRINT: PRINT SPACES (p-2) ;c#; SPACE$ (p+2) PRINT: PRINT:PRI 
NT 
100 t=255*FEEK (P17OIH+FEEK (91589) ır=er-t:FOKE 9157,90: FOKE 7170,00 
110 PRINT" Innootın EINGEBEN Zeus AUSGEBEN 
Jsers.. LOESCHEN 
Annan SAVEN Sessrs: LADEN 
Gefafahefage TITEL. 
120 Af=INKEYF:IF af="" THEN 120 
130 a=VAL{a$) 
140 IF a>& DR ait THEN 170 ELSE CLS 
150 ON a GOTO 190,490 ,670,740,800,900 
170 REM EINGABE 
200 »=1:y=1 . 
210 LOCATE x ,„y=:FRINT CHRF (143) :c=10020+r 
#20 aF=INKEYFS:IF af="" THEN 720 
230 IF ASCta#}=13 THEN 270 
240 IF x=1 AND y=1 THEN 270 
45 IF at="#" THEN 220 
>50 IF af="@" THEN 320 
260 IF ASbta#)=127 THEN 340 
270 POKE c,ASCiaP):LOCATE »,„yıFRINT a$ 
280 r=ert+ti:x=x+1:IP x>40 THEN 290 ELSE Z10 
290 LOCATE x ,y:PRINT” ":POKE c,92 
300 IF r>35840 THEN FRINT:FRINT=:FRINT"SPEICHER VOLL":DCALL &BB19:560T0 320 
Si0 x=ley=ytlor=er+ls IF y>24 THEN 410 ELSE 210 
320 FOKE 2,92:POKEic+1),54 
330 POKE tc+2) „35: %2=1:yalırar+7:60T0 70 
340 LOCATE x,„y:FRINT" ":x=x-1ırer-i 
350 IF x=0 THEN 350 ELSE 710 “ 
350 b=0:c=10020+r 
© 
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370 
3806 


390 


400 
205 
410 
490 
bw 1016 
510 
320 
530 
| 5s0 
545 
550 
st=]8) 
570 
s90 
570 
soo 
510 
820 
630 
540 
: 50 
570 
790 
710 
720 
730 
740 
730 
76 


3 


b=b+1:d=FEEK ic-b) 


IF d=92 OR d=44 OR d=35 THEN 400 


GOTO 370 

x»=b: y=y-1:BOTD 210 
s=0 
CLS:x=1:y=1:60T0 210 
REM AUSGEBEN 

ds=" GESUCHT " 


PRINT"WELCHER BEGRIFF SOLL"; d$5 "WERDEN?" 


PRINT=:PRINT"-—-> " 
=: y=-3:5-0 


a#=INKEYF:IF a$="" THEN 540 
IF af="#" OR a$="e" THEN 540 


IF ASCtaf)=13 THEN 810 
IF x=&4 THEN 580 
IF ASCta#)=127 THEN 530 


e=10000+s: PDKE c,RASCtaf)s LDCATE x,y:FRINT a 
s=65+lsx=x+1: IF =»>25 THEN 410 


GOTO 540 
FOKE c+1,0:CL5:CALL 9000 
FOKE 9047,41 


OPENDUT "un 
PRINT #9,r 
CLOSEOUT:EOTO 70 
REM LADEN 
LOAD"" „10020 
OPENIN "ı" 

INPUT #9,r 
CLOSEIN 


GOTD 70 

»=x-1:LDOCATE x ,„y:PRINT" "ıs=s-i1 
GOTO 540 770 
REM iLOESCHEN >90 
d$=" GELGESCHT * 790 
IF r<3 THEN 70 200 
POKE 7047,0 Bio 
GOTO 510 970 
REM SAVEN 930 
ger+2 840 
SAVE c$,6b,10020,q 850 


700 REM EINGABE DES TITELS 


710 PRINT"WELCHEN NAMEN SOLL DAS PROGRAMM HABENT":PRINT 


GSOTO 70 


programme 
Arbeiten mit dem 
Schneider GPC 464 


von Hans Lorenz Schneider 





720 INPUT c#$ 
730 GOTD 70 


1000 
1010 
1020 
1030 
2000 
2010 
2020 
I 2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
] 2180 
1 2170 
2186 
21970 
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FOR a=9000 T9 7191 

READ b=FOKE a,b 

NEXT . 

RETURN 

DATA 6,0,33,58,39,17,16,39,26,190 

DATA 40,9,52,35,190,202,174,35,35,24 
DATA 243,19,62,0,229,98,107,190,225,202 
DATA 79,35,35,26,190,40,240,74,222,642 
DATA 64,43, 190 „32,252,35,24, 41,84, 93 
DATA 62,64,190,35,32,252,68,77, 229, 96 
DATA 105,43,1,0,0,3,43,190,32,251 

DATA 120,50,210,35,121,50,209,35,62,35 
DATA 3,35,190,32,251,225,237,176,201,43 
DATA 30,0,22,1,35,28,75,62,25,1B7 

DATA 204,196,35,235,205,117,197,235,62,92 
DATA 190,89,40,234,62,64,190,40,7,126 
DATA 205,90,187,35,24,238,6,1,205,1965 
DATA 35,195,45,35,62,0,184,192,33,211 
DATA a eu 
DATA 24,245,205,24,187,201, 205,24,187 
DATA 205,255, 187, 17, 1,1 De [") 
DATA 0, &8, 65, ‚94, 89 ‚78,32,78, 73,67 

DATA 72,84,32,88,79,82, 72,65,78,68 

DATA 69,78 
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Das Buch wendet sich an Besitzer des 
Schneider GPG 464, die eigene BASIC- 
Programme erstellen und den Schneider 
CPC effektiver für Beruf und Hobby einset- 
zen möchten. 

Es befaßt sich ausschließlich mit der BA- 
SIG-Programmierung des Schneider CPC. 
Dabei werden anhand ausführlicher Bei- 
spielprogramme viele wichtige Program- 
miertechniken erläutert. 

Es werden ernsthafte Themen, wie Sor- 
tieralgorithmen und Dateiverwaitung be- 
handelt, andererseits wird jedoch auch 
auf die Programmierung von Spielen ein- 
gegangen, wobei auch Grafik- und Musik- 
Programmierung nicht zu kurz kommt. 
Mit vielen Tips und Tricks bietet das Buch 
eine leicht verständliche und umfassende 
Arbeitshiife, 


SYBEX-Verlag, Düsseldorf, 
ISBN 3-88745-603-3, Preis 38,-- DM 
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‚Ar alle, die die: Beschränkungen der Programmiersprache BASIC überwinden möchten: bietet der 
. SYBEX-Verlag einen Schneider CPC: 464 Assembler Kurs mit: Buch und ‚Software. Kassette: an; . 


Schneider CPC 464 Software + Trainingsbuch 





Die Software besteht aus einem kornplet- 
ten Z80-Assembler, der dem Käufer über 
diesen Kurs hinaus noch lange von Nutzen 
sein kann und die folgenden Möglichkei- 
ten bietet: Marken, Einfügen und Löschen 
von Befehlen, Speichern der Programme 
auf Kassette, Laden von Kassette usw. 
Dieser Assembler bietet also alles, was zur 
komfortablen Erzeugung von Maschinen- 
programmen erforderlich ist. Weiterhin 
wird ein Trainingsprogramm für das Ein- 
üben der in diesem Zusammenhang sehr 












wichtigen Zahlenumwandlungen mitge- 
liefert. 

Das Buch enthält den Kurs in Z80-Assem- 
bier-Programmierung. Es setzt keine 
Grundkenntnisse voraus. Die verschiede- 
nen Befehle werden anhand von Beispie- 
len genau erläutert. In alten Programmbei- 
spielen fälit ein sehr starker Bezug auf den 
konkret verwendeten Rechner auf. Die sy- 
stemspezifischen Eigenschaften werden 
berücksichtigt und ausgenutzt, insbeson- 
dere die eingebauten Maschinenroutinen. 
SYBEX-VERLAG, Düsseldorf, 

ISBN: 3-88745-412-X, Preis 64,-- DM 





Mein Schneider 
CPC von Norbert 


u. Christoph Hesselmann 


der-Computer und geht dabei auch auf 
elementare Dinge ein, die aus den Herstel- 


- Sneicherbelegung 
- Grafik- und Ton-Programmierung 
- BASIC-Befehlssatz und BASIC-Tokens 


- wichtige Routinen des Betriebssystems $ 


angesprochen und behandelt. Mit über 10 
Anhängen, zahlreichen Programmbei- 


schen wollen. 
SYBEX-Verlag, Düsseldorf, 
ISBN 3-88745-602-5, Preis 42,-- DM 





| Die Klagen der Ärzte über die Haltungs- 
& schäden bei Schülern werden bald noch 
1 lauter, wenn der Computer in den Schulen 
Der Autor dieses Buches befaßt sich in- | 
tensiv mit den Eigenschaften der Schnei- # 
£ die Computer, es werden die nichtergono- 
| mischen Schultische, die kurzerhand zu 
lungsunterlagen nichtzu entnehmen sind. & 
50 werden die großen Themen-Bereiche E 


fester Bestandteil des Unterrichts wird. 
Grund dieser steigenden Klagen sind nicht 


Bildschirm-Arbeitspläzen ernannt wer- 
den, sein. 
Was sich in der Wirtschaft inzwischen als 


# Erkenntnis durchgesetzt hat, daß zwi- 
i schen Computer und Arbeitsplatz eine 


Abstimmung auf den Menschen erfolgen 


| muß, wird in. den Schulen noch einen län- 
M geren Erfahrungsprozeß benötigen. 
spielen und Abbildungen macht das Buch B 
den Leser zum Insider und Spezialisten für & 
seinen Schneider-Computer. Er verschafft 
dem Leser eine genaue Kenntnis seines # 
Schneider GPG 464 oder CPC 664 und & 
hilft durch viel Informationen bei der Ent- $ 
wicklung eigener Programme. Ein unent- & 
behrliches Buch für alle, die Ihr Schneider- % 
System von Anfang an richtig beherr- 4 
i vestition stehen und Probleme durch ge- 

; sundheitliche Beeinträchtigungen weit- 
# gehend ausschließen. Ein solcher dem Ar- 


Auch die knappen Finanzen werden Pro- 
visorien den Vorzug geben und damit die 
gleichen Beschwerden im Seh- und Kör- 
perbereich der Bediener von den Büros 
nun in die Schulen tragen. 

Dabei gibt es heute schon eine große Zahl 
von preiswerten Lösungen für Gomputer- 
Arbeitsplätze, deren Anschaffungskosten 
in vernünftiger Relation zu der Gesamt-In- 


Compute mi 





beitsprozeB am Computer entsprechen- 
der Arbeitstisch ist der Datoflex DAP 3000 
vor Leymann, der auch schon seine Be- 
währung in der Schule bestanden hat. 





Umterricht am Personal Computer ist schon in vielen Schulen ein begehr- 
tes Fach. Für die ergonomisch rüchtigen Schulmöhel dazu wird aber noch 
viel Zeit ins Land gehen. 

Erfreuliche Ansätze gibt es aber schon, vor allem in Berufsschufen. 
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Paralleles Ein-/Ausgabe- Interface _mit_ zahlreichen Erweiterungsmöglichkeiten für 
Schneider GPG 464 und CPC 664 


Endlich wird den GPC-Besitzern erstmalig 
die Möglichkeit geboten, mit dem paralle- 
len Ein-/Ausgabe-Interface der Firma 
M&L Electronic Engineering, den Com- 
puter auch zum Steuern und Regeln ein- 
zusetzen. 

Aufgrund der sehr ausführlichen Bedie- 


nungsanleitung ist die Programmierung | 


des parallefen Interface relativ einfach 


durchzuführen; sie kann sowohl in BASIC 
als auch in Maschinensprache erfolgen. 


Mit Kilte dieses parallelen Interface ist es mög- 


lich, den Schneider GPG vielfältig einzusetzen: 


a) Steuerung von z.B. Licht, Kleinstrobo- 
ter, Modelleisenbahnen, Schrittmoto- 
“ren, Produktionsabläufen; 


b)} Meßwertaufnahme und -verarbeitung, 
Labordatenverarbeitung; 

e) Schnittstellennachbildungen; 

d) Programmieren von EPROM’s 
Passend zu diesem Interface werden für 
die oben angegebenen Einsatzmöglich- 
keiten Ergänzungsschaltungen abgebo- 
ten bzw. vorbereitet, so daß nach und 
nach ein Komplettes System entsteht. 


EPROM-Programmiergerät für Schneider GPG 464 und CPC 664 


. Fast jedes elektronische Gerät oder jede 


(z.B. Spiele) auf EPROM’s abspeichern. 


elektronische Anlage enthält heute ! Aufdiese Programme kann man dann zu- 


EPROM's, in denen die Programme für die | greifen, ohne über externe Speicher (Ma 


Mikroprozessoren im Maschinencode ab- 
gespeichert sind. Außerdem müssen die- 
se EPROM'’s bei Programmänderung um- 
programmiert bzw. im Servicefall über- 
prüft werden. 

Dazu benötigt man ein EPROM-Program- 
miergerät, eine Art modernen „Lötkol- 
ben“, da es elektrische Verbindungen 
herstellt bzw. auftrennt. 

Mit Hilfe des Schneider-Gomputers und 
der dazu lieferbaren Software (ASSEM- 
BLER, MONITOR) ist es möglich, Maschi- 
nenprogramme in Assembler zu erstellen. 
Es fehlte bisher die Möglichkeit, diese 
Maschinenprogramme direkt in EPROM’s 
abzuspeichern. M&L Electronic Engi- 
neering hat zusätzlich zu ihrem parallelen 
Ein-/Ausgabe-Interface ein sehr zuverläs- 
'siges EPROM-Programmiergerät vorge- 
stellt. 

Damit istes also möglich, die mit dem As- 
sembler erstellten Maschinenprogramme 
in EPROM’s abzulegen und diese dann in 
anderen Mikrocomputersystemen (z.B. 
Einplatinen-Steuerungscomputer) zu be- 
nutzen. Zusammen mit dem Schneider 
CPC ist dann ein Entwicklungssystem für 
Mikrocomputer entstanden. 
Mit Hilfe des EPROM-Programmiergerätes 
kann man jedoch auch PC-Programme 
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gnetband, Floppy) das Programm erst las- 
laden zu müssen. 


Mit dem EPROM-Programmiergerät lassen sich die folgenden EPROM-Typen programmieren: 


a) INTEL (oder kompatibel}: 


2716 ( 2 kByte) 
2732 ( 4 kByte) 
2732A { 4 kByte) 
2764 ( 8 kByte) 
27128 (16 kByte) 
Software-Option: 27256 (32 kByte) 


b) TEXAS INSTRUMENTS 


(oder kompatibel}: 2516 (2 kByte) 
2532 (4 kByte) 
2564 


(8 kByte) 
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Die Hard- und Software des EPROM-Pro- 
grammiergerätes erfüllt die Anforderun- 
gen, die an ein professionelles Gerät ge- 
stellt werden müssen. Der Preis für das 


 EPROM-Programmiergerät einschließlich 
Software und Textool-Sockef in der Plati- 3° 


nenversion beträgt DM 178,--. Zusätzlich 
ist das parallele YO-Interface [DM 198,--) 
erforderlich. Der Preis des EPROM-Pro- 
grammiergerätes inclusive Schneider- 
Rechner”liegt damit noch weit unter dem 
eines vergleichbaren professionellen 

EPROM-Programmiergerätes. 















"NEVER FORGETS? 


Speichern und Drucken. Fehlerlos. Mit 100% Sicherheit: 
das ist Elephant Memory Systems'”, 
Unter diesem Markennamen erhalten Sie hochwertiges Zubehör 
für perfekt arbeitende Kommunikations-Systeme der Text- 
und Datenverarbeitung - wie Disketten, Farbbänder, Farbband- 
kassetten und Spezialreinigungsmittel. . 
Kompromiß ist Risiko. Zweite Wahl ist Unsicherheit - deshalb: 
verlangen Sie Elephant Memory Systems’", 


ELEPHANT NEVER FÜRGETS. 


I MARCOM Computerzubehör GmbH » 

. Podbielskistraße 321, 3060 Hannover 51, Tel. (0511) 64 7420 

Frankreich: Soroclass, 8, Rue Montgolfier : 93115, Rosny-Sous-Bols, Tel.:"16 (1) 8556-73-70 

Erußbritannien: Dennison Mfg. Co. Ltd., Colonia! Way, Watlard WD2 AUY, Tel; 0923 41244, Telex: 923321 

Italien: King mec 5.p.a. - Via Regio Parco 108 - 10036 Settimo Torines® 

Weitergs Ausland: Denhison international Company, 4006 Erkrath 1, MatthiasCtaudius-Straße 9, Telex: 858 5600 
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